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ABSTRACT 


This research develops a prototype relational database system for storing and 
managing Fleet Battle Experiment (FBE) data. It is the first step in constructing a 
knowledge-base system for such data. The objective is to create a relational database 
capable of generating information from past experiments for analysis and lessons learned 
to benefit future experiments. Research methodology included literature research of 
application development methodologies and database systems, as well as observing a 
FBE and gathering system requirements information from personnel that plan, configure, 
and participate in FBEs and war games. 

Development of the system involved designing a schema (data model) that 
consists of entities, attributes, and relationships of the FBE environment. The data model 
is transaction- (event-) based and concentrates on information flow in order to categorize 
and store the data. These events provide the logical links between the identified entities 
and the capability to query the system for desired information. Finally, a prototype 
application against the data model was developed to facilitate data entry, modification, 


and querying. 
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I. INTRODUCTION 


A. BACKGROUND 


In a world full of uncertainty and the possibility of conflict, our country’s military 
personnel must be prepared to deal with any number of potential threats. Preparedness is 
crucial, but training for certain scenarios may be economically infeasible for and/or 
logistically impossible to support. 

In order to prepare for such scenarios and to test war fighting doctrine and 
philosophy, our armed forces have developed two types of training: Fleet Battle 
Experiments (FBE) and War Games. A War Game is an exercise that the military and 
other defense organizations use in order to gain experience at making decisions in diverse 
scenarios. War Games typically use computer simulations, also known as Synthetic 
Theaters of War (STOW), but may also be designed as discussion groups for system and 
doctrine experts. Objectives chosen are aimed at testing particular systems, practicing 
specific maneuvers and tactics, providing familiarization with certain environments and 
situations, and/or enhancing and honing decision-making skills. War Game scenarios are 
chosen so they are plausible and relevant to the objectives of the game. They are most 
effective for testing strategic and tactical levels of warfare. 

FBEs are designed as genuine experiments, not demonstrations or exercises. 

Each experiment has a hypothesis and specific, carefully considered measures of 
effectiveness. Products from the FBEs include: new doctrine; new insight into 
technology in an operational environment; identification of new required operational 
capabilities; identification of new acquisition requirements; ideas for further warfare 
concepts; and ideas for further experimentation. FBEs are useful at testing all levels of 
an operation from strategic to operational. [Ref. 11] 

The information and knowledge that is produced during the war game is vast and 
complex. The data produced is of varying types, recorded in dissimilar ways, and is 


related in a complex manner. Experiential knowledge from an FBE is carned away by 


the participants and is rapidly dispersed by personnel assignments and tasking. This 
information would be of great benefit to future scenario design and to provide decision 
support to the participants. Unfortunately, it is too diverse to be appropniately collected 
and stored. Consequently, there is currently no appropnate approach or mechanism to 
systematically capture, retrieve, and analyze the data collected from an FBE. 

Currently, several disparate systems are used to manage data for a FBE. For 
example, Land Attack Weapons System (LAWS) and Global Intelligence, Surveillance, 
and Reconnaissance System (GISRS) provide weapon and sensor node data management 
as well as the data repositories for these objects. This collection of heterogenous systems 
causes problems in the integration of the data for the purpose of querying and analysis. 
Additionally, data stored in these systems may not be accurate due to the data input and 
collection methods used. For example, a large portion of LAWS data is entered manually 


and therefore may be inaccurate and incomplete. 


B. PURPOSE 


The purpose of this research is to ascertain the feasibility of developing a 
prototype relational database system for stonng and managing FBE data. Such a 
database system would enable analysts to retrieve data and information from past 
experiments for the purposes of analysis and extracting lessons learned to benefit future 
experiments. 

This research is part of a larger effort to develop a knowledge base system to 
support FBEs by transferring knowledge obtained from past experiments to the 
appropnate context of a current experiment. To accomplish this elaborate task, a four- 
phased approach is being considered. 

The first phase, the focus of this thesis, develops a data model and application for 
storing and managing the quantitative aspect of FBE data. More specifically, this first 
phase provides: 

1. Collection of the data and functional requirements needed for the data model and 


application system. 


2. Development of a data model that consists of the entities, attributes, and relationships 
of FBE data. 

3. Development of an application system that defines the main queries, forms, and 
reports of the developed data model. 

4. Development of data import facilities that populate the developed database with data 
from other archival systems (e.g., LAWS). 

5. A prototype data management system tested with actual FBE data to evaluate its 


functionality, usability, and effectiveness. 


The second phase develops an ethnographic model to collect and manage the 
qualitative aspects of FBE data. The third phase integrates the first two efforts into a 
loosely defined “Knowledge Management System.” The fourth phase evolves the 
product of the third phase into a full-fledged knowledge management engine and system 
using an appropriate technology (e.g., object-oriented, Web, or collaborative 


technologies). 
Cc; SCOPE AND METHODOLOGY 


This thesis focuses on the collection, storage, and analysis of tracking and 
targeting data. Development of the system involved designing a schema (data model) 
that consisted of entities, attnbutes, and relationships of the FBE environment and 
structure (both physical and logical). The personnel structure was studied for data model 
completeness, but not implemented in the prototype system. 

The data model is transaction- (event-) based and concentrates on information 
flow in order to categorize and store the data. It represents the information exchanges 
and data links that are the focus for this research. This approach provides logical links 
between the identified entities and the capability to query the system for desired 
information. A prototype application was coupled with the database to complete the data 
management system and facilitate data entry, modification, and querying. 


The following research methodology was implemented to properly develop the 
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system. The architectures of fleet battle experiments and war games were studied. 
Elements and entities of the architectures were discussed to establish their significance to 
the overall structure, and personnel were interviewed to determine information flow and 
cmitical points of information exchange. 

A schema was developed in an attempt to capture the essence of the FBE 
architecture. The schema was analyzed to ensure that critical entities were accurately 
defined and that key information was not overlooked. Relationships were studied to 
guarantee proper entity interactions and dependencies. 

Upon data model approval, some requirements were gathered for application 


implementation. Application interaction with the database was then tested and 


requirement completion venfied. 
This thesis is organized as follows. Chapter 2 discusses the overall framework of 


FBEs, data sources, and collection methodologies. Chapter 3 discusses the data model 
developed and its components. Chapter 4 addresses the application created and its 
capabilities. The final chapter addresses benefits, shortcomings, and lessons learned and 


provides some recommendations for improvements to the system. 


Il. OVERVIEW OF FLEET BATTLE EXPERIMENTS 


A. FRAMEWORK 


The Chief of Naval Operations (CNO) established the Maritime Battle Center 
(MBC) at the Naval War College (NWC) in Newport, Rhode Island, to serve as the single 
point of contact for Navy Fleet Battle Experimentation and participation in Joint 
Experiments. This action was the first step in streamlining and invigorating the Navy’s 
warfare concept development, doctrine refinement, and warfare innovation process. 

The MBC is responsible for designing and planning Fleet Battle Experiments, 
coordinating the execution of these experiments in conjunction with the numbered fleet 
operational command elements (OCE), and analyzing and disseminating experiment 
results. The FBE results are used to accelerate the delivery of innovative warfare 
capabilities to the fleet, identify concept-based requirements, and evaluate new 
Operational capabilities. 

The Navy Warfare Development Command (NWDC) was officially established 
on 10 August 1998 in Newport, Rhode Island. [Ref. 11] 


B. DESCRIPTION 


Each FBE has a hypothesis and specific, carefully considered measures of 
effectiveness. FBEs produce, new doctrine, new insight into technology in an operational 
environment, identification of new required operational capabilities, identification of new 
acquisition requirements, ideas for further warfare concepts, and ideas for further 
experimentation. 

Unlike a war game, a FBE involves real components and assets. Military units 
are employed and the exercise is executed in a real-world environment. However, some 
computer systems may be used to supplement the real environment by ‘injecting’ 


synthetic, or virtual, targets into the experiment. 


LA 


C. ORGANIZATIONAL STRUCTURE 


Two types of organizational structures can be examined. One is the authonities 
and personnel that design, plan, and execute the FBEs and the other is the organizational 
structure of the FBE itself. The organizational structure of the experiment is adaptable to 
the scenario and objectives addressed by the experiment’s concept of operations. 
Therefore, the objectives determine the procedures followed by the personnel taking part 


in the experiment and the flow of information during the exercise. 


1. Design, Planning, and Execution 


The structure of the authorities ruling over the FBE organization and its 
procedures begins with strategic level involvement. 

The MBC is a CNO sponsored command chartered to conduct FBEs that examine 
new technologies and new operational concepts in the context of the Navy of the future. 
The results of FBEs are used to accelerate the delivery of innovative warfare capabilities 
to the fleet, identify concept-based requirements and evaluate new operational 
capabilities. [Ref. 10:p. 2] The MBC is responsible for designing and planning FBEs, as 
well as, coordinating the execution of these experiments in conjunction with the 
numbered fleet operational command elements (OCE), and analyzing and disseminating 


experiment results. 


ap The Experiments 


Although FBE architectures may differ due to changing objectives, the basic 
structures are similar. This research was based mostly on FBEs E, F, and G, with a 
concentration on FBE-G. 

The MBC and the Commander, U.S. SIXTH Fleet (C6F) jointly conducted Fleet 
Battle Expernment Golf (FBE-G). C6F Staff and the Navy Warfare Development 


Command focused on large themes of dynamic sensor management, decentralized 
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operations, and sensor, actor, and decision-maker synchronization. These themes were 
chosen to support an investigation of the emerging Network Centric Warfare (NCW) 
hypotheses in the pursuit of dynamic attack operations. [Ref. 10:p. 68] 

NCW focuses on shortening the Detect-to-Engage timeline. A critical part of 
shortening the timeline is being able to respond effectively against emergent high threat 
targets, or Time Cnitical Targets (TCT). 

The experiment focused on the Time Critical Targeting process using a dispersed 
command, sensors and engagement architecture to allow forces to respond quickly to 
fleeting targets and allow them to commit weapons and move sensors with knowledge of 
the impact those decisions would have. TCTs are a subset of Time Sensitive Targets. 
Time Sensitive Targets are fleeting targets that can only be effectively engaged during 
limited periods of time. TCTs are targets requiring immediate response because they pose 
(or soon will pose) a clear and present danger to fnendly forces or are high-value fleeting 
targets of opportunity. [Ref. 9:p. 55] 

The primary goal was to apply the concepts of NCW to the Joint Task Force 
(JTF) structure. It included Intelligence, Surveillance, and Reconnaissance (ISR) asset 
management and allocation of resources, the use of ASW search methodology for land 
targets, weapon apportionment and sensor-weapon-target pairing. FBE-G applied a 
distnbuted Command and Control (C2) architecture, in contrast to the centralized C2 
architectures of earlier experiments. [Ref. 9:p. 4] 

Figure 1 depicts the traditional C2 structure for FBE-G with the inclusion of the 
concept of Maritime Control Centers (MCC). It is intended to empower individual units 
at various levels in the traditional C2 structure to act autonomously in the engagement of 
TCTs. The decentralized network is used to facilitate the process. While the traditional 
C2 structure remains in place for deliberate stnkes, a network centric approach is 
employed in the specific case of TCTs to accelerate the speed of effects. [Ref. 9:p. 15] 

A Maritime Control Center is a combined sensor, engagement and command node 
that has been allocated and apportioned three key assets: Battlespace; Resources, both in 
sensors and weapons; and Autonomy of Action within Commander’s Guidance and Rules 


of Engagement. [Ref. 9:p. 16] 


White Cells 
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Figure 1 Command and Control Organization for FBE-G with MCC Concept Included 
(MCC Units Designated with Asterisk). After Ref. [9] 


Information was disseminated throughout the forces taking part in the exercise 
and each unit was granted some autonomy in deciding if they could effectively engage 
the targets. [Ref. 9:p. 5-7] This method of tasking was used in hopes of improving 
reaction times and effectiveness in engagements. 

Figure 2 is a representation of the sensor network for FBE-G. The sensor gnd 
was composed of decentralized, distributed sensor nodes. Sensor nodes were 
controlled/focused using distributed collaborative planning and a shared workspace. 
Sensor nodes directly controlled sensors or had access to the controllers for near real time 
flexing of assets. Sensor reassignment and geolocation requests were shared through a 


common workspace; sensor management chat-rooms. [Ref. 9:p. 9] 


SENSOR NET <an> 





Figure 2 Sensor Network for FBE-G. After Ref. [9] 


D. DATA OF A FBE 


The amount of data produced during a fleet battle experiment can be 
overwhelming. Although extremely diverse in its types, formats, and sources, the data 
extracted from a FBE can be classified under two main categories: quantitative and 
qualitative data. 

Quantitative data makes up the greater part of the data and is the focus of this 
project. Quantitative data is typically raw, unprocessed data such as times, quantities, 
and locations. This type of information can be classified, stored, and queried more easily 
than qualitative data. It 1s factual, precise, and indisputable. Few things can be done with 
quantitative data except using it for decision support and assessment substantiation. It 
includes information on track, target and platform locations, munitions used, times of 
events, and other detailed information. 


Qualitative data includes opinions and assessments developed by personnel after 


examination of massive amounts of information (quantitative data). Qualitative data is 
the result of analysis and is derived by experts based on their examination of the 
quantitative data. It may be a determination of the relevance or condition of an event or 
action. This kind of data is not always obtained from a specific source and may not be 
exact, factual, or precise in nature. It is debatable and irregular in its configuration, 
making it very hard to store for future referencing. It is filtered and assessed by 


knowledge experts and data collection personnel. 


Ie Sources and Collection 


Fleet battle experiment data 1s produced at numerous locations by several sources. 
Sources of qualitative data include both civilian and military personnel taking part in the 
experiment as well as data collection and analysis personnel. Assessments, decisions, 
and other factors can be used to determine effectiveness and correctness of actions in 
addition to ascertaining if a problem was encountered in a system or process. 

Quantitative data is provided by, or can be extracted from, systems such as Land 
Attack Weapons System (LAWS) and Global Intelligence, Surveillance, and 
Reconnaissance System (GISRS). LAWS and GISRS provide the capability to manage 
weapon and sensor nodes real time, respectively. Tables 1 and 2 list the engagement and 


sensor nodes (platforms) and assets (weapons, sensors) contained by each. 


3 
Direct Action. 





Table 1 Engagement Nodes and Assets for FBE-G. 


Systems such as LAWS and GISRS, though they seemingly categorize and sort 
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data, are still reliant upon personnel for data entry. This introduces the possibility of data 
input irregularity and inaccuracy. Much information is left blank due to the rapid pace of 
activity during the experiment. This introduces the problem of data absence, which must 
be handled by the data collection personnel at a later time. They correct these problems 
by either inferring actions and results or attempting to gather the information from other 


sources, then back logging the information into the systems. 

















[____Toeation —S—=—~—“—~‘S~<“‘;*;*;*SSensors— 


Table 2 Sensor Nodes and Assets for FBE-G. 


Other sources include records kept by personnel during the execution of the 
exercise and interviews or discussions held afterwards. Information gathered from 
personnel will tend to be more imprecise and difficult to sort, categorize, and store 
appropriately due to variation. 

The primary concer for the latest experiments has been track acquisition and 
reaction time reduction for assessments. Track acquisition, assessment, and engagement 
events produce the majority of the information gathered about the exercise. However, 
information concerning weapon utilization and effectiveness, message delays, and 
situational awareness 1s also determined and gathered by personnel. 

Manual recording of information by FBE personnel constitutes the bulk of the 
information collection effort. Data conceming tracks, targets, platforms, decisions, and 
many other factors is recorded on either forms that personnel are afforded or is entered 


into data repository systems such as LAWS. 
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Because of this methodology, data collection is inconsistent and the data entered 
may vary based on the person recording. This irregularity in data formats produces 
another problem at the time of data analysis. 

The latest version of LAWS, demonstrated in FBE-G, was utilized with some 
problems and many records were incomplete and inaccurate. Time formats were not 
clearly defined and fields were frequently left blank. Because of this, few tests could be 
run to determine the effectiveness of data analysis concerning the event timeline. 

Target Location Error information, provided by mensuration events, was entered 
into the remarks fields along with other random, unrelated information. Other 
information, such as platform identification and threat types, was formatted improperly 
making data filtering very difficult. Data transfer into event entities was also problematic 


and complicated because of the varying ways the data was recorded. 


Zz Storage 


The classification of the data 1s an arduous task. Current methods have personnel 
studying this data and then categorizing it by source, subject, and type. 

Data storage is of great concern because access to data from past experiments 
could be used in designing and performing future experiments as well as providing 
decision support to participants. Analysis of data from various experiments is nearly 
impossible because of the sheer magnitude of information. Knowledge management 
experts and data collection personnel work hand in hand to try to find trends in the data 
and to determine difficulties in the processes. Difficulties could be attributed to system 
overloads or to human error. By storing data more effectively, the hopes are to make data 
access easier and data collection and categorization faster so data comparison and 
analysis can be performed more effectively and efficiently. 

Databases have been created to store the data from FBEs, but with limited 
success. These databases are designed mainly for storage of text strings. The 
information is categorized after the experiment 1s executed. Personnel collect, analyze, 


and categorize the data (mostly comments and assessments made by FBE participants) 
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a 


based on the subject matter, the sources, and the conclusions made. This data is labeled 
accordingly and stored in a database that can reference it at a later date by those 
categories. 

This provides few querying options. The data can only be extracted in the form in 
which it is entered. Few, 1f any, conclusions can be drawn from the information and 
searches are predetermined to fit a specific request because no real links, other than 
categories, can be made between the different pieces of information. 

Data provided by systems, such as LAWS, is stored in those systems to be studied 
and disseminated by personnel. Associations between data in separate systems can only 
be made through human involvement. There 1s no existing way to manipulate and link 
the data across differing systems. Trends and logical relationships are difficult to 


determine, if at all possible. 


AE Information Flow 


The flow of data begins at the time of acquisition. A sensor acquires a track and 
information pertaining to the track, sensor, and time of acquisition are all logged. Once 
the target has been positively identified, it can be redesignated from a Unidentified 
Assumed Enemy (UAE) state to Hostile (HOS). At that point, the HIT will be 
redesignated as a target (TGT). This status will be updated in the Digital Track Folder 
(DTF) and made available to all engagement cells. [Ref. 9:p. 19] 

As shown in Figure 4, the track 1s then submitted (nominated) as a possible target 
by a GISRS terminal. Targets that are being actively prosecuted by a sensor will be 
additionally labeled as a High Interest Track (HIT). This will indicate that target 
mensuration and refinement are in progress. [Ref. 9:p. 19] 

Mensuration is used because some tracks may require more detail, or more 
precise information, pertaining to location, altitude, threat type, etc. A request for 
mensuration may be sent by the acquiring terminal to a Precision Targeting Workstation 
(PTW) or a Joint Targeting Workstation (JTW). Once a nomination is requested and 


mensuration information received, the track is determined to be a viable target or not. If 
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evaluated as a viable target, a fire command with pertinent information is sent to all 
platforms available. Providing all assets with as much information as possible so that, 
through autonomy, the most effective solution can be achieved is the net-centric 
ideology. Geosolution 1s considered complete when the target solution is good enough to 


engage with at least one available weapon. [Ref. 9:p. 19] 
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Figure 3 Detailed Engagement Process. After Ref. [9] 


The distinction between tracks and targets hinges on the assignment of a weapon 
to a track. FBE-G operations outline that a track was not considered a target until it was 
assigned a weapon. A platform to engage a target 1S assigned upon issuance of a fire 
command. Figure 5 displays the engagement net used for FBE-G consisting of the 
platforms and the weapons contained within them. For FBE-G all platforms were issued 
a fire command upon target acknowledgment. The ““Target-Weapon’” pairing, as referred 


to by FBE personnel, is represented in the schema by including the Weapon Type 
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attribute within the Target entity. 


Engagement NET 





Figure 4 Engagement Network. After Ref. [9] 


At this point the autonomy aspect of the experiment is apparent. Once provided 
with firing information and given the authorization to fire, the individual platforms may 
determine if they are to engage the target. Upon engagement, or firing, information is 
continuously exchanged between platforms, sensors, and other systems to determine 
impact and assessment of the target after impact. 

All this information is time-stamped 1n order to be able to reproduce a time line of 
events at a later date and to determine any information bottlenecks, problems, or 
variation. This information is also useful in analyzing decision-making skills by the 
commanders and other decision-makers involved in the experiment. 

The information flow is reproduced in the database schema through the use of key 
fields that relate each entity and/or event. Time attributes in each object provide the 
timeline information that is crucial to event recreation. Figure 5 provides an overview of 


the TCT process from track acquisition to target engagement. 
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Figure 5 TCT Process Overview. After Ref. [9] 
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II. DATA AND APPLICATION DESIGN 


Databases have been utilized to store the data.from FBEs, but with limited 
success. These databases are primarily used for storage of text, and searches on these 
databases are subject-based, not event-based. No practical attempts had been made in 
designing a schema that would effectively support storing and querying FBE data and 
provide customized results to meet user needs. 

Relational databases store data in tables and enable applications written against 
this data to retrieve and update data from these tables. In order to maintain an effective 
and efficient database, data redundancy and inconsistency 1s eliminated by ensuring that 
fields related to the same category of data are stored in the same table. Relationships 
between tables allow for retrieval of related data stored in different tables. The types of 
relationships supported by a relational database are One-to-One, One-to-Many, and 
Many-to-Many. Many-to-Many relationships are implemented by creating two One-to- 
Many relationships and using a third table as an intersection to store the relationship 
between the two tables. Some common examples for each relationship are Employee-Job, 
Department-Employee, and Students-Classes, respectively. 

Normalization is an important concept to relational databases that eliminates 
inconsistencies and minimizes inefficiency. A fully normalized database stores each 
piece of information in the database once with each entity represented in a table that 1s 
uniquely identified by its own primary key. A primary key is an attribute that uniquely 
identifies a record. Normalized tables allow users to reference any piece of information 
in other tables by linking them together through the foreign keys. A foreign key is an 


attribute in a table that links to the primary key in another table. 
A. SCHEMA DESIGN 


A schema is a mapping of the database. It diagrams all the tables, fields, and 


relationships in the database. The schema for the prototype database was designed to 


17 


account for all entities and relationships that represent the architecture of the FBE. (See 
Figure 6.) This includes personnel, command cells, and roles occupied by personnel. 
Although these entities are not the primary points of interest of the prototype system, they 
are included in order to provide a complete picture of the structure and to allow for 


erowth of the system in future development stages. 
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Figure 6 Fleet Battle Experiment Database Schema with All Entities Represented. 


As previously mentioned, the schema is transaction- (event-) based. The data 
model represents the interactions between different systems and information sources by 
concentrating on the logical events and the information transferred rather than the 


physical objects manipulating the data. 
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Entities represented in the data model represent both logical and physical objects. 
Event entities such as track acquisitions, target nominations, firing commands, and target 
engagements are events that occur during the experiment and are examples of logical 
entities in the data model. Physical entities are those such as platforms, sensors, 
weapons, and personnel. 

In the remainder of this section we describe the main entities of a FBE and how 
they relate to each other. These core entities include Platform Type, Sensor Type, Threat 
Type, Weapon Type, weapon, sensor, and mensuration information managers, 
Acquisition, Mensuration, Nomination, Target, Route, Fire Command, Fire, Impact, and 
Reposition events, operational cell and command center nodes, and personnel. 

e The Platform Type entity defines the general types of ship, aircraft, or other 
vessels that will participate in the FBE. Information related to a type of 
platform is stored in this entity. For example, the USS Dwight D. Eisenhower 
is a specific vessel of type CVN. A platform is involved in acquisition, 
mensuration, fire command, impact, and reposition events. Since a platform 
type can contain other platform types as assets (1.e., a cruiser owns a 
helicopter as an asset), a recursive relationship needed to be established for 
the Platform Types entity. 

e A platform type entity can be related to many Platform entities which 
describe specific platforms. 

e The Threat Type entity represents the various expected threats that will play 
a part in the FBE. A type of threat can be part of many instances of 
acquisition events and is therefore a part of the acquisition event definition. 

e The Sensor Type entity defines the generic sensor types that will be used in 
the FBE. Any type of sensor can be used for multiple acquisition, 
mensuration, and impact events. 

e Similar to the Sensor Type entity, the Weapon Type entity describes a 
generic weapon that will be used in the FBE. A weapon type can be linked to 
many platforms and can be used against many targets. 

e A Mensuration event is the request for more precise information on a 
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particular track. An acquisition event may produce more than one 
mensuration event but a mensuration event 1s requested by a specific 
acquisition event and a GISRS or LAWS terminal. Mensuration requires the 
involvement of a platform and sensor, which may or may not be the same as 
the acquiring platform and/or sensor, and a PTW terminal. Any platform, 
sensor, and PTW terminal may be involved 1n more than one mensuration 
request. The inverse is not true, however. 

Weapon, sensor, and mensuration information managers are known as 
LAWS, GISRS, and PTW Terminals, respectively. These terminals are 
used during mensuration, nomination, and route events. 

An Acquisition event defines the acquisition of some threat or the creation of 
a track by a sensor. This entity 1s an intersection of the threat type, sensor 
type, and platform entities. It links a threat type with its acquiring sensor and 
the platform on which that sensor is located through the use of foreign keys 
from those entities. A platform, sensor type, and threat type can be linked to 
many acquisition events, but a specific acquisition event may only posses one 
platform, sensor type and threat type. 

A Nomination event is the recommendation from some GISRS or LAWS 
terminal to designate an acquired track as a target. As with the mensuration 
event, it is initiated by an acquisition event. The nomination requires 
information from the mensuration event in order to arrive at a valid 
assessment of the track and determine if it should be considered a target. A 
nomination also requires a GISRS terminal for the data analysis. 

A Target is a track that has been assigned a weapon by a nomination event 
(target-weapon pairing) and designated as a target for engagement. A target 
therefore links the track from an acquisition event (by way of a nomination 
event) and a weapon type. A specific nomination event can produce 
numerous targets if multiple attacks on the track are desired. A weapon type 
can be used in many target-weapon pairings and therefore linked to many 


targets. If more than one weapon is assigned to a track then the different 
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assignments are appointed different target ids. 

Route events are the product of a LAWS terminal and contain flight and 
target information specific to the target-weapon paring of a Tactical 
Tomahawk Land Attack Missile to a target. 

The Fire Command entity is an event identifying the assignment of a target 
to a specific platform (not a platform type). A target could create many fire 
commands (be assigned to many platforms), but the data used in this research 
only provided examples of one firing command per target id. 

A Fire event is the actual firing of a weapon by a platform, or the engagement 
of the target. A firing command usually produces only one fire event because 
a firing of multiple rounds is recorded as one firing and the number of rounds 
is recorded as information for that event. 

An Impact event is the result of a firing event. The assessment of the impact 
is part of this event and involves the use of a platform and a sensor for 
gathering data. 

In order to keep information concerning weapon magazine information on 
platforms, an entity called Platform-Weapon Status was created. This links 
a specific platform with the weapon types used and could help track weapon 
usage during FBEs. 

The Reposition event 1s used for information concerning platform movement 
during an FBE. Its information is specific to one platform for a specific range 
of time and can be used to track asset management and platform availability 
after the conclusion of the FBE. 

Command Centers represent authority units in the FBE that make critical 
decisions and assessments. They control strategic decisions and asset 
management. The Common Operating Picture (COP) is in reality an 
assessment made by personnel who have studied information about the 
environment. It is the product situational awareness. The COP is defined by 


Command Centers. 


PAA | 


e Operational Cells are similar to Command Centers but tend to control 
specific actions and platforms. They provide lower-level decision making 
power. They are linked to targets because of their influence in determining 
the viability of a target and the assignment of platforms to targets. 

e The Personnel entity contains information about specific individuals such as 
name, rank, and service. These individuals may be assigned many jobs, or 
Roles. Many Roles have the same titles because they perform the same tasks 
and responsibilities but on different platforms. Therefore, personnel and their 
roles are linked through the use of an entity called Role Assignment. This 
entity can then be related to specific platforms and cells as necessary. 

e The FBE entity was created to store FBE specific information such as dates 
and location for the experiment. The entities Acronyms, Data Types, 
Initiatives, Objectives, and Questions hold respective information pertaining 
to the experiment. They are entities created to store specific information and 


have no necessary relationships with any of the other entities. 


B. APPLICATION DESIGN 


Due to the lack of user defined requirements for application implementation, 


some assumptions had to be made regarding querying and reporting capabilities. 


1. Querying 


Due to the novelty of the concept for this system, FBE personnel had a difficult 
time formulating application requirements and provided few suggestions concerning 
system-querying capabilities. Several querying options were formulated and presented to 
the user. These suggestions were acknowledged as likely and beneficial options so they 
were implemented as predefined, or “canned”, queries. In general, these queries extract 


information on the main entities based on different arguments or parameters. A detailed 
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description of these queries is presented in the following chapter. 
In order to provide some flexibility for users a custom SQL-based query option 


was also included in the design of the system. 


ae Reporting 


The same situation occurred with report specifications. It was determined that 
reports should be provided for query results. Due to lack of requirements, reports that the 
author felt would be most useful were defined and discussed with the user. A decision 
was made to make their design as simple as possible in order to allow for future 
modifications. Simplicity was also a benefit in reflecting the information provided on- 
screen by the application. 

In the next chapter we discuss the implementation of the database and application 


designed in this chapter. 
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IV. DATA AND APPLICATION IMPLEMENTATION 


A prototype Database Management System (DBMS) was implemented from the 
data and application design described in the previous chapter. A coupling of Microsoft® 
Visual Basic and Microsoft® Access 97 was chosen in order to combine the power of 
Microsoft® Access 97 database processing capabilities with the ease of user interface 
development of Microsoft® Visual Basic in order to meet the users’ needs. The 
simplicity of connecting the two applications was also an important consideration. 

By keeping the database separate from the application, the database could be 
migrated to other SQL-based databases without the need to re-write or modify the 


application. 
A. DATABASE IMPLEMENTATION 


The database for the prototype system was implemented in Microsoft Access 97. 
It is a relational database management system and was chosen primarily because of its 
populanity, flexibility, and wide use. Data produced during the FBE is categorized and 
stored by the logical event that produced it. 

Since the storing of data from multiple FBEs in a single database could eventually 
tax the speed and querying capabilities of the system, it was decided that each FBE would 
have its own database. In other words, a database will contain data from only one FBE. 
Some reasons for this decision are 1) it keeps the volume of data in a database to a 
manageable size so that queries are not slowed and 2) it allows for changes to be made 
easily foreach experiment. The latter reason addresses the differences in FBE objectives 
and the changing information requirements to support those objectives. A third reason is 
somewhat related to the latter. If a specific record of an entity is altered between FBEs, 
then that record’s information pertaining to the previous FBE will be lost. This makes 
the linking of that entity’s information to pnor FBEs impossible. 


The design and military structure of FBEs assigns discrete names or designations 
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to the units involved, which provides a unique identifier, or primary key, for each entity. 
This simplified the task of determining entity classifications and ensunng distinctions 
among instances of the same entities. 

Twenty-five tables, representing logical events and physical entities in the FBE 
architecture, were created in order to accommodate the normalized data. However, other 
FBE information pieces specific to the FBE design were necessary so additional tables 
were created. These include FBE attributes (such as dates and title), acronyms, 
initiatives, objectives, and questions. Two more tables were added to support data import 
and filtenng from LAWS and other possible sources. 

For the implementation of the database schema, twenty-one entities were 
concentrated on with fifteen of those having relationships with each other. I will now 
discuss the implementation of the entities as tables in an Access database. (Figure 7) 

e The Platform Type table contains information related to a type of vessel that 
is used in the FBE. The pnmary key for this table is the asset’s generic 
acronym used by the military. For example, CVN (aircraft carrer, nuclear), 
CG (guided-missile cruiser), and SSN (fast-attack submarine, nuclear). 

e The Sensor Type table contains the generic sensor types that will be used in 
the FBE. The pnmary key for this table is the typical name or acronym used 
by personnel. Examples include UAV (unmanned aerial vehicle) and RECO 
(reconnaissance personnel). 

e The Threat Type table contains the various expected threats that will play a 
part in the FBE. The primary key used 1s the generic designator used to 
address a threat such as NODONG (a type of ballistic missile), SAM1 (a 
surface-to-air missile), or MOBRDR (acronym used for mobile radar). 


Attributes for threat description and capabilities more clearly define this table. 
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Figure 7 Schema of Entities Implemented in Prototype Database. 


e As with the previous tables, the Weapon Type table defines a nonspecific 
entity and contains weapons that will be used in the FBE. The primary key is 
the military term applied to the weapon. Examples include: AGM (air-to- 
ground missile), AIM (air interceptor missile), and SLAM (Stand-off Land 
Attack Missile). Weapon Type also includes a Description attribute. 

e LAWS, GISRS, and PTW Terminal tables represent weapon, sensor, and 
mensuration information managers, respectively. These terminals are used 
during mensuration, nomination, and route events. The LAWS, GISRS, and 
PTW Terminal entities all possess like attributes. They are defined by their 
location and functionality attnbutes. For future schema development efforts, 
these terminal types could be implemented as one table with a defining 
attribute determining the type of terminal as a LAWS, GISRS, or PIW/JTW. 


e The Platform table contains occurrences of a specific platform type. The 
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primary key for this table is the platform’s designator. For example, the USS 
Dwight D. Eisenhower is a specific vessel of type whose designator is CVN- 
69. A foreign key from the platform type table provides information specific 
to the type of platform. The platforms specific mission or specialty can also 
be stored in this table. For data importation from LAWS, a table containing 
the LAWS designation for the platform 1s also included in the table’s 
definition. 

An Acquisition event table defines the acquisition of a track by a sensor. 

This table’s primary key is a concatenation of an abbreviation distinguishing it 
as an acquisition event and an AutoNumber counter kept by the database. The 
table contains three foreign keys that links a threat type with its acquiring 
sensor and the platform on which that sensor is located. Other significant 
attributes include the track id determined by the acquiring terminal and track 
information such as altitude, speed, and location. 

A Mensuration event table is the request for more precise information on a 
particular track. The instance of a mensuration event links a platform and 
sensor, which may or may not be the same as the acquiring platform and/or 
sensor, and a PTW terminal. Its prmary key 1s also a concatenation of an 
abbreviation and an AutoNumber counter. Foreign keys from the mentioned 
entities help define the event. A foreign key specifying a GISRS terminal as 
an information source 1s also an attribute of this table. Attributes to store data 
concerning information request and receipt times are present 1n this table as 
well. 

The Nomination event table uses a primary key composed in the same 
manner as the acquisition and mensuration primary keys. Because a 
nomination requires information from a mensuration event, a foreign key from 
the mensuration table is included. A foreign key from the acquisition table is 
also an attribute. An assesment field is provided for qualitative information 
that may have had a specific influence on the nomination event. 


The Target table links the track from an acquisition event (by way of a 
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nomination event) and a weapon type by including foreign keys from both the 
nomination table and the weapon type table. The primary key is specified by 
GISRS and LAWS terminals. Post-mensuration information including time of 
designation as a target, location, speed, and “No Later Than” time are stored 
in this table. The “No Later Than” time specifies a time at which, if the target 
has not been engaged, it ceases to be a time critical target. 

e The Fire Command table primary key is created in the same manner as the 
other event primary keys. This table contains the platform and target table 
primary keys as foreign keys. It also contains attributes stating the time the 
command was sent and received, as well as if a weapon was actually launched 
at the target. 

e A Fire event table is the actual firing of a weapon by a platform, or the 
engagement of the target. Its primary key is a concatenation of an 
abbreviation and an AutoNumber. The Fire Command that produced the Fire 
event is stored in this table using a foreign key. The number of rounds and 
time of firing is also recorded. 

e An Impact event table is the result of a firing event. Its primary key 
resembles those of the other event tables. The assessment of the impact 
involves the use of a platform and a sensor for gathering data. Foreign keys 
for both are stored in this table as is the target impact time and the fire event 
that led to the impact event. 

e The FBE table uses the FBE name (1.e., E, F, G) as its primary key. It 
contains the start and end dates and the location of the experiment. The 
Acronym, Data Types, Initiatives, Objectives, and Questions tables contain 
memo data type fields that hold respective information that can be search as 


strings. 


Referential integrity requires that records in tables providing information for other 
tables must exist prior to the creation of the record in the dependent table. Information 


flow dictates which entities need to be created prior to others. The schema follows the 
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logical chain of events of the experiment therefore events must be created in the order 
dictated by the information flow — acquisition, mensuration, nomination, target, fire 
command, fire, impact. 

Data types and formats for al] attributes were determined by the information 
sources and their current formats and usage of the data. Because of the variance in data 
types and formats table attributes were weakly defined. Most attributes are of text data 
type to allow for manipulation of the data and a broader variety of formats. This is true 
of time information. Access and Visual Basic do not recognize time information stored 
in Military Date-Time format. Therefore, the times in the database are stored as text 
fields. This means that any analysis or comparison on this type of information must be 


performed by the application by using string manipulation. 


B. APPLICATION IMPLEMENTATION 


The application interface for the DBMS was designed and impemented using 
Microsoft® Visual Basic 6.0: Professional Edition. 

The application involved the creation of twenty-eight graphic user interface (GUI) 
forms that allow the user to add, delete, modify and query the data stored in the database. 
The application uses both Visual Basic data objects and virtual recordsets in order to 
access the database. Controls such as text boxes, dropdown list boxes, command buttons, 
and menus are used to facilitate data entry and modification, as well as form and record 


navigation. 


jl. Forms 


Upon execution of the application executable program file, a module containing 
the Main sub procedure is used to determine the database file to be opened by the 
application. An Open File dialog box, as in Figure 8, is displayed where the user can 


browse the computer files available for the database file they desire. When the user 
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selects the database file, the filename is stored as the database name and recordsets are 
updated by the application to contain the information from the database selected. (Should 
the user not choose a database file, the main form will be displayed but no search or 
editing options will be available because there is no database selected. The user can still 
choose to open a database y using the File menu option.) 


The main interface form (Figure 9) is then displayed. The user can now use the 


application to modify and search the selected database. 
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Figure 8 Open Database Dialog Box Displayed at Run-time. 
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Figure 9 Main Interface Form. 


Forms designed for record addition, modification, and deletion (Figure 10) are 
available to the user under the Add/Delete menu option on the main form. Forms created 
include Acquisition, Mensuration, Nomination, Fire Command, Fire, and Impact Event 
Update forms, a Target Record Update form, a Platform Information Update form, 
Platform, Sensor, Threat, and Weapon Types forms, and Acronym, Data Types, 
Initiatives, Objectives, and Questions forms. 

These forms make use of text boxes and dropdown list boxes to ease data entry 
and modification as well as displaying update, save, add and delete buttons to manipulate 
the records. Data objects, which also serve for record navigation, and virtual recordsets 
are all updated at the time of the form’s load event procedure. They provide the data 
links between the Visual Basic form and the database. 

The Add Event button will enable all the data entry fields and clear their contents 
in preparation for addition of a new record. Upon data entry completion the user must 
then select the Save Event button to add the record. The Delete Event button will warm 


the user before submitting the record deletion to the database. 


im. Acqusition Event Update Form 
File 
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Track Location: 
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Figure 10 Example Update Form (Acquisition Event Update Form). 





To Update or Edit a previously existing record, the user must select the Update 
button. The Update button’s caption will then automatically change to “Submit”. After 
completing all edits, the user will select the Submit button in order to commit the 
changes. 

The user may choose to view all targets stored in the database by selecting the 
View menu option and choosing Targets. This will display the Targets window seen in 
Figure 11. When the target window appears the user may display the time line of events 
corresponding to a specific target by double-clicking the target record they desire. The 
double-click action will display another window (Figure 12) with the time data for every 


event pertaining to that target from acquisition to impact. 
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Figure 11 Targets Window. 


If the user desires to reduce the number of targets displayed by sorting the records 
according to some specific criteria, they can choose the filter option under the File menu 
in the Targets window. This will open the Filters window (Figure 13) and allow them to 
choose which filters to apply and what cniteria to filter with. They can select which 
filters to activate by checking the appropriate boxes. Once the box is checked, they can 
then enter or select the criteria they wish to filter with. 

The Apply button will activate the filters that are checked but will keep the Filters 
Window open. The OK button will apply the filters and return the user to the Target 
Records Window. The Cancel window will return the user to the Target Records 


Window without altering any filter settings. 
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ia. Timeline 


Target Description: RKTMSL/MDMMSL 


NLT Time: 031035ZAPR 2000 


Acquisition Time: 0391108 
Mensuration Rast: 

Mensuration Revd: 

Mensuration Info Sent: 
Mensuration Info Revd: 
Nomination Sent: 

Nomination Revd: 

Target Designation: 

Fire Command Xmit: 

Fire Command Revd: 





Figure 12 Target Timeline Window. 
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m. Target Record Filters 
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Figure 13 Target Record Filters Window. 


os Menus 


The application was implemented as a menu driven application with the main 
form as the base of form connectivity. By using the main form’s menu options users can 
reach the predefined query form, the SQL custom query form, and all entity update 
forms. They can also view the list of targets found in the database and even have limited 
control of the data importation process. They can do all these things with the use of the 


menus available on the main form. Menu options include opening a different database, 
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searching the database using “canned” (previously defined) queries or custom SQL 
queries, editing the database records, and/or populating the database with new 


information from other systems using text file importation. 






Main Form 


_ Add/Delete Forms View Targets | Data 


Open New File Events - ‘Acronym Update Form Filters Sort 
"Canned" Queries Data Types Update Form Transfer 
SQL Custom Query Platform Update Form Poputate Tables 


Other Entity Update Forms... 





Query Output Form Acquisition Update Form 
Mensuration Update Form 
Nomination Update Form 

Other Event Update Forms... 





Figure 14 Hierarchical Chart of Menu Options. 


The previously mentioned data import capability is based on a capability offered 
by the latest version of LAWS. The export facility takes user-selected fields from the 
LAWS system database and exports them to acomma delimited text file. Upon creation 
of the text file, the information can be imported to a database table. The table used for 
data import was specifically designed for the exported LAWS data fields, therefore 
adjustments to the source code would have to be made in order to allow for extra fields or 
for the integration other systems as data sources. However, the system is operational 
with the LAWS export text file format. (The database table is named LAWS in the 
prototype database schema.) Once the table is filled, the data can be sorted and filtered 
for completeness and formatting using the Transfer and Sort options available under the 
Data menu item on the Main form. After filtering, the information can be separated and 
disseminated throughout the database by using the Populate Tables option under the Data 
menu item. This feature ensures that all the information is sent to the appropriate tables 


in the database and in the appropriate order as dictated by referential integrity. 
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3: Queries 


If the user chooses the query option from the main form, then another window 
(Figure 15) displaying the provided queries appears. Option buttons allow the user to 
select the desired query. When an option button is selected, the appropriate controls will 
become enabled. The user selects the criteria and runs the query using a command 
button. The Submit Query button’s code module contains a Select Case clause with 
predefined SQL statements. The option buttons are actually an array of controls whose 
index determines the case to be selected in the source code and therefore the SQL 


statement to be used. The form’s controls provide the arguments used in the statements. 


mm. Queries |. {OW x! 
File 
f Tracks acquired by platform: | | 
{ Tracks acquired by sensor type: | = 


{ Tracks acquired by sensor. | 2 | 
on platform: | y | 


| 
( Weapon type: | ~| used. | 
{ Threat type: | ~| detected. | 


{ ed 


0 
ia 


( Nominations accepted as targets: Submit Query | : 


( Nominations declined as targets: 





( Targets destroyed (impacts). 





Figure 15 “Canned” Queries Form. 
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Query results appear in the window shown in Figure 16. Fields displayed 
are predetermined and set in the source code (hard-coded). These queries do not provide 
the user with the option of selecting what information is displayed; only the criteria by 


which to search the database. 


















t, Query Output 


File 


Recoid| Acquistion Event 

1| AE00037 Gl1745 CVN-69 071421) 

2| AE00038 GI2080 CVN-69 091108] == . 

3] AEO0039 GI2097 CVN-69 091227} 

4} AE 00040 GI2104 CVN-69 ‘ 
5| AE00041 GI2111 CVN-69 
6| AE00042 GI2118 CVN-69 

G12125 





Figure 16 “Canned” Query Output Window. 


The user selects which query they would like to use by selecting the appropriate 
option button. The applicable controls are then enabled and the user chooses the criteria. 
They then select the Submit Query button and the Query Output Window is displayed 
with the results of the query. 

Four of the eight “canned” queries provided filter acquisition events. These 
queries filter the acquisitions by the acquiring platform, sensor type, both the acquiring 
sensor type and platform, and by the threat type of the acquired track. One query filters 
the target records by the weapon type assigned to, or paired with, the target. Two of 
queries concentrate on the nomination events — one searching for the nominations 
accepted as targets and the other searching for the nominations declined as targets. The 
last query on the “Canned” Queries form retrieves all impact events from the database. 

The queries are defined in the source code of the application using cases that 
contain SQL statements set specifically for the individual querying cases. 


For the custom query option, some considerations had to be taken. The biggest 
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difficulty would have been the presentation of the information, but using Visual Basics 
Data Bound Gnid Control, the fields are updated through the use of a data object that 
recognizes the SQL-requested fields. 

Should the user select the SQL option from the Main form, the SQL Custom 
Query Window will be displayed. (Figure 17) This window contains a text box in which 
the user will enter the SQL statement desired. Once the statement is entered, the user 
selects the Search button and the information is displayed in the Data Bound Grid at the 
bottom of the form. 

Using this query method the user has more control over the fields to be displayed 
and can alter the criteria to suit their particular needs. However, those who do not fully 


understand the database schema may encounter some difficulties. 


=. Custom Query as 
Type your SQL statement and click "Search". 


Select * From Acquisition 





(Acquistion [Trackld AoqPatiom 
AE 00036 CSG324124736 SAM6 CG-71 


071421 NODONG CVN-69 


rn eo et 


GI2090 0391108 “ALABBA 
091227 


'GI2125 
GJO001 


GJ0008 070626 
GJO064 
| |AEO0047 GJ2001 091104 
| _|AE00048 © LA5000 
| {AE 00049 LA5010 


| [AE 00050 LG0029 





Figure 17 SQL Custom Query Window. 
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eg ee 


When querying the database, the primary and foreign keys of each table provide 
links between the tables. Because the database is relational, table joins must be created to 
access information from multiple tables. 

In order to extract information from a table that is two relationship links away, it 
iS necessary to include the necessary linking information from the intermediary table. 

For example, suppose you want to query information of an impact event and want to 
determine either the firing platform or the target fired upon. The links must first relate 
the Fire event that created the Impact event through the Fire attribute, or field, within the 
Impact event. Then, to retrieve the platform or target ids that reside in the Fire Command 
event another link must be made between the Fire event and the Fire Command event by 
using the Fire Command attribute, or field, within the Fire event. In Standard Query 


Language (SQL) the query would look like this: 


SELECT Impact.FireEvent, Fire.Fire, Fire.FireCommand, 
FireCommand.FireCommand, FireCommand.Targetld, Fire 
Command.FirerPlatform 

FROM Impact, Fire, FireCommand 

WHERE Impact.Fire = ‘IEQOOO1’ 

AND Fire.Fire = Impact.FireEvent 

AND FireCommand.FireCommand = Fire.FireCommand 


The SELECT section chooses the fields the user wants to retrieve and/or compare. 
The FROM section determines the tables in which to look in for the fields named in the 
SELECT portion of the SQL statement. WHERE is the companson portion of the SQL 
statement specifying the criteria by which records will be eliminated or selected. 

The example SQL statement will query the database for the TargetId and 
FirerPlatform involved in the FireCommand event that produced the Fire event that led to 
the Impact event designated as ‘IEOQO0O01’. The statement selects the record in the Impact 
table with an id equal to ‘IEOO001’. It then compares this instance’s FireEvent attribute 
with Fire instances until it finds a match. It will then use the FireCommand attribute of 
that instance of the Fire event to find the matching FireCommand instance and provide 


the FirerPlatform and Targetld. 
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A query between tables that lie more than one table away from each other will 
require that each link between intermediary entities be represented in the SQL statement. 

The most important query for this system is also one of the most complicated — 
time queries. The format used for time data poses a significant problem for comparisons. 
The data is stored in Military Date-Time fashion. This is expressed as a string 
concatenation of the day, the time (24-hour), the time zone (Zulu (Z)), the month, and the 
year. In order to be able to compare these times and to perform any calculations, the 
string must be segmented into pieces and each portion compared with the appropriate 


section of another date-time string using string manipulation code. 


4. Reports 


It is possible to export database data to Microsoft Office applications from a 
Visual Basic application through the use of automation. Automation is a process that 
enables applications to communicate and exchange data with each other. 

The Visual Basic application sets a reference to the object library of the 
Automation server to be used; in this case, Word 97®. An instance of the Automation 
server object is created. A recordset object containing the data desired 1s also created. A 
code module within the Visual Basic application instantiates the object vanables and 
sends the data to Word. The data is then exported from the recordset object to the 
Automation server. Word can then be used to produce and edit a document or merely as 
a print engine. [Ref. 4] Once the Visual Basic application opens a document in Word 
97® the manipulation of data and format of the report is controlled in the Word 97® 
application. An example of a report produced and formatted in Word 97® is shown in 
Figure 18. 

Information retrieved from the database using predefined quenes, SQL custom 
queries, or data objects (recordsets) can be exported to a report (Word document) by 
using the Word 97 automation server. Reporting capability is available on forms 


displaying entity information by means of a menu option. 


5. Modules 


Visual Basic is an event-driven programming language. Event-driven means that 
procedures (sections of code intended to perform a singular, specific action) are triggered 
by user interactions with the application’s user interface. User actions can vary from 
selecting a menu option to selecting a check box in the window. For Visual Basic, 
modules are groupings of multiple procedures that provide the functionality of a form. 
Consequently, a module exists for each form in the application. The modules that define 


the application are provided as Appendix B for this thesis. 
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Figure 18 Acquisition Events Report Created in Word 97® by Using Print Option on 
Acquisition Event Update Form (Figure 10). 


43 


Cc: POST-IMPLEMENTATION 


Once the forms were designed and most of the data manipulation code was 
implemented, the prototype was demonstrated. Feedback provided some new insight into 
application functionality and some requirement modifications. 

Difficult at best, application testing was time-consuming and imprecise. 
Troubleshooting was an arduous task because of the lack of available of data and the 
incompleteness of the little data that was available. However, the export facility 
available in the latest version of LAWS provided some data that could be manipulated, or 
massaged, into a usable form and used to test the database schema and the interaction of 
the application with the database. 

Forms properly interact with each other and limited error trapping has been 
included to eliminate database error terminations. 

Further discussions with FBE personnel and personal data analysis have 
demonstrated that the schema developed could be improved by combining some entities 
such as the LAWS, GISRS, and PTW terminal entities. Data such as time needs to be 
formatted in a different manner to allow for more effective querying. Other data fields 
need to be more clearly defined. A lot of fields are defined as text data types, which 
produces a lot of wasted memory space. This slows the system down and will be 


apparent once more data 1s entered. 


V. CONCLUSION AND RECOMMENDATION 


A. CONCLUSION 


The database schema and application developed for this thesis are basic, yet 
functional. They provide a simple approach for extracting and updating FBE data using 
an easy to use graphical interface. 

The requirements analysis portion of this project was very frustrating. Users were 
not certain of what capabilities they wanted and had little understanding of the 
functionality a system such as this could provide. They provided very little input as to 
desired queries, reports, and interface design preferences. As a result the author had to 
spend a considerable amount of time understanding the application domain in order to 
suggest useful query and report options. 

The conceptual model should have been more clearly defined and the project’s 
implementation postponed, but time constraints required that the schema be implemented 
and tested quickly to allow time for the application’s development. This led to 
modifications being applied to the schema mid-way through the implementation of the 
application. 

The Visual Basic and Access coupling is a very effective method of implementing 
client/server systems such as this because it allows the programmer more control over the 
design of the interface and its interactions with the database. It also provides for 
program/data independence thus supporting upward scalability of the database. 

However, limitations of relational databases join processing can slow the speed of 
searches and other data management processes. Numerous table joins are necessary to 
navigate the database and, with large amounts of data in the tables, querying speed is 
likely to suffer. We do not however anticipate the volume of data from a single 
experiment to overwhelm the system since a database contains information from only one 
expenment. 


Another potential limitation is that SQL custom queries require the user to 
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understand the data model wel] and can become complicated and slow when information 
from two or more tables is required. 

Perhaps the greatest shortcoming of the Visual Basic and Access linkage is the 
quantity of error-trapping and data format-validation code that must be created. Data 
editing and updating method errors addressed by Access 97 can cause an error that may 
terminate the connection between the application data object and the database. 

The database schema was initially implemented in Access 2000, but Visual Basic 
6.0 does not seem to interface with Access 2000. This required that the database schema 


be reconstructed in Access 97. 


B. RECOMMENDATION 


It is my recommendation that the data model be examined with greater detail. In 
my opinion, the conceptual model should be researched independently of any 
implementation plans with the intention of defining data types and sources more clearly. 
Research should involve input from all data repository systems involved in FBEs, such as 
LAWS and GISRS, to determine the data overlap of the systems and the distinguishing 
data interests of each. 

The application provides limited sorting and filtering capabilities for the tables 
defined in the database. The data filtering option needs to be more robust and tested with 
sufficient feedback from the user. For example, the target record viewing filters are basic 
and a better format for time data would provide more effective querying capabilities and 
make the system more stable. 

The data “drill-down” functionality is also very basic. Better requirements 
definition needs to be the main focus of any follow-on work. With a clearer idea of what 
kind of data is wanted, the system functionality can be more focused and provide better 
results. 

The development effort for this system was implemented using an event-based 
methodology. Focus was placed on the information and its flow with less attention paid 


to the behavior of the system. With future alterations to war-fighting doctrine and FBE 
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architectures, the schema developed here may or may not accurately define the 
interactions among the entities involved. This schema should be meticulously tested in a 
FBE environment in order to reveal its limitations. 

The fourth phase of the larger effort will use an object-oriented approach. It will 
look at these relationships as interactions among objects. These objects would contain 
attributes (information, data) about themselves and behaviors that would define their 
interactions and information flow and manipulation. By focusing on both information 
and behavior it is possible to develop systems that are resilient and flexible to changes in 
structure and processes. 

I would also recommend that the system be migrated to the World Wide Web. 
This would increase the amount of input from interested parties and help define 
additional requirements. Schema limitations could also be scrutinized and additional 


entities and relationships added to supplement the data model. 


47] 


THIS PAGE INTENTIONALLY LEFT BLANK 


48 





APPENDIX A: GLOSSARY OF TERMS 


This appendix contains the definitions of abbreviations used in this thesis. 


AO 
ANZ 
ASM 
ASMD 
ASW 
ATO 
BDA 


BWC 
C2 
C2W 
C4] 
C4ISR 


CG 


CIC 
CINC 
Chit: 
COA 
COMSEC 
CONOPS 
COP 
COTS 
CSG 

rr 


Area of Operations 

USS ANZIO 

Anti-Ship Missile 

Anti-Ship Missile Defense 
Anti-Submarine Warfare 

NG Tasking Order 

Bomb Damage Assessment 
Battle Damage Assessment 
Battle Watch Captain 

Command and Control 
Command and Control Warfare 
Command, Control, Communications, Computers, and Intelligence 
Command, Control, Communications, Computers, Intelligence, 
Surveillance and Reconnaissance 
Guided Cruiser 

Commanders Guidance 

Combat Information Center 
Commander-in-Chief 
Commander Joint Task Force 
Course of Action 
Communications Security 
Concept of Operations 

Common Operational Picture 
Commercial Off-the-Shelf 

USS CAPE ST GEORGE 
Combined Task Force 
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CVBG 
CVW 
DFN 
DTG 
ERGM 
GBS 
GCCS 
GIS 
GPS 
GSIRS-C 
HARM 
HIT 
HOS 
IKE 
IMMM 
aE 
ITO 

IW 
JAC 
JDAM 
JECG 
JFACC 
JFC 
JFMCC 
JICO 
iPr 
JMCIS 
JOA 
JSOW 
JSTARS 


Aircraft Carrier Battle Group 

Carrier Air Wing 

Digital Fires Network 

Date Time Group 

Extended Range Guided Munition 
Global Broadcasting System 

Global Command and Control System 
Global Information System 

Global Positioning System 

Global ISR System-Capability 

High Speed Anti-Radiation Missile 
High Interest Track 

Hostile 

USS EISENHOWER 

In-flight Mission Modification Message 
Intelligence 

Integrated Task Order 

Information Warfare 

Joint Analysis Center 

Joint Direct Attack Munition 

Joint Experiment Control Group 

Joint Force Air Component Commander 
Joint Force Commander 

Joint Force Maritime Commander 

Joint Interface Control Officer 

Joint Integrated Pnontized Target List 
Joint Maritime Command [Information System 
Joint Operations Area 

Joint Stand-Off Weapon 


Joint Surveillance, Target Attack Radar System 
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JSWS 
JTCB 
Je 
JTW 
JWAC 
LAMPS 
LAN 
LANTIRN 
LAS 
LASM 
LAWS 
LOS 
LPMP 
MBC 
MCC 
MDS 
METOC 
MOE 
MPA 
MPR 


OCE 
OIC 


JSTARS Work Station 

Joint Targeting Coordination Board | 
Joint Task Force 

Joint Targeting Workstation 

Joint Warfare Analysis Center 

Light Airborne Multipurpose System 
Local Area Network 

Low Altitude Navigation and Targeting Infrared for Night 
USS LASALLE 

Land Attack Standard Missile 

Land Attack Warfare System 

Line of Sight 

Launch Point Mission Planner 
Maritime Battle Center 

Maritime Control Center 

Mission Distribution System 
Meteorological and Oceanographic 
Measure of Effectiveness 

Maritime Patrol Aircraft 

Mission Planning Request 

National Command Authority 

Not Later Than 

Naval Post Graduate School 
National Reconnaissance Office 
Naval Surface Fires Support 

Navy Special Warfare 

Naval Undersea Warfare Command 
Naval War College 

Officer Conducting Exercise 


Officer-in-Charge 
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OOB 
OPCON 
OPFOR 
OPINTEL 
OPORD 
GES EC 
OTCIXS 
PAO 
PGM 
Pie} 
POC 
RFI 
ROE 

SA 
SAM 
SAR 


SATCOM 

SC 

SITREP 

SLAM 
SLAM-ER 

SOF 

SOP 

SPAWARS YSCEN 
SPECWARGRU 
SSM 

SSN 

STOW 

TA 


Order of Battle 

Operational Control 

Opposing Forces 

Operational Intelligence 

Operations Order 

Operational Security 

Officer-in-Tactical Command Information Exchange System 
Public Affairs Office 

Precision Guided Munition 

Position Location Information 

Point of Contact 

Request for Information 

Rules of Engagement 

Situational Awareness 

Surface-to-Air Missile 

Search and Rescue 

Synthetic Aperture RADAR 

Satellite Communications 

Stnke Controller 

Situation Report 

Stand-off Land Attack Missile 

Stand-off Land Attack Missile Expanded Response 
Special Operations Forces 

Standard Operating Procedure 

Space and Naval Warfare Systems Command 
Special Warfare Group 

Surface-to-Surface Missile 

Strike Submarine 

Synthetic Theater of War 


Target Acquisition 
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TACAIR 
TARPS 
TBD 
TCC 
TCX 
TEL 
TLAM 


Tactical Aircraft 

Tactical Air Reconnaissance Pod System 
To Be Determined 

Time Critical Contact 

Time Critical Target 

Transporter Erector Launcher 
Tomahawk Land Attack Missile 

Target Location Error 

Time on Target 

Mime tous 

Tactics, Techniques, and Procedures 
Time Sensitive Target 

Tactical Tomahawk 

Tactical Tomahawk Weapons Control System 
Unidentified Assumed Enemy 
Unmanned Aerial Vehicle 


United States Navy 


Sie. 
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APPENDIX B: APPLICATION CODE MODULES 


This appendix contains the Visual Basic code modules that define the data 


management system’s interface and functionality. 


DIK KKKEKKK KKK KEKE KKK KKK IK KKK KK KK KKK KKK KK KK KKK HKK KK KKK KK KKK KKK KK 


‘Module: Modulel.bas 

‘Description: Displays an Open File dialog box upon execution 
j and loads the main form after setting the 

; database file name as a global variable. 


« 7 
‘Programmer : Kevin Colon 
Vm KKK KKK KK KKK IKKE KEKE KKK KKK KKK KKK KKK KEK KEKE KEK KKK KEK KKK KKK KKK 


ObE1 On Fexplicit 


Public db As Database 
Public gstNewDatabase As String 
Public gstFBE As String 
Public bContinue As Boolean 
Public bWord As Boolean 
Public bText As Boolean 
Sub Main () 


On Error GoTo HandleError 
gstNewDatabase = GetNewDatabase 


Set db = OpenDatabase (gstNewDatabase) 


‘display Main form 
With frmMain 

. Show 

.Caption = .dlgDatabase.FileTitle & " Database" 
End With 


Sub_Exit: 
Exit Sub 


HandleError: 


Select Case Err.Number 
Case 3004, 3024, 3044 
gstNewDatabase = GetNewDatabase 
If gstNewDatabase = "" Then 
MsgBox "No database was selected.", vbExclamation, 
"Database Error" 


‘disables options only available when a database is 


selected 
frmMain.mnuFileQueries.Enabled = False 
frmMain.mnuFileSQL.Enabled = False 
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frmMain.mnuUpdate.Enabled = False 
Resume Next 


Else 
Set db = OpenDatabase (gstNewDatabase) ‘new database 


recat lon 


‘reenables options once a database is selected 
frmMain.mnuFileQueries.Enabled = True 
frmMain.mnuFileSQL.Enabled = True 
frmMain.mnuUpdate.Enabled = True 


Resume ‘open the database 


End Lt 
Case Else 
MsgBox Err.Description, vbOKOnly + vbExclamation, 
"Unexpected Error" 
End ‘exit the project 


End Select 
End Sub 


Public Function GetNewDatabase() As String 
‘allows user to browse for database 
Dim iResp As Integer 
Dim stMsg As String 


stMsg = "Do you want to locate a database file?" 


i1Resp = MsgBox(stMsg, vbYesNo + vbQuestion, "File or Path not 
found" } 


‘if user does not want to browse for file 
If 1Resp = vbNo Then 


‘set database name to "blank" 
GetNewDatabase = "" 


Else 
‘if user opts to find database 
With frmMain.dlgDatabase 
.FileName = App.Path & "\G.mdb" ‘gstNewDatabase 
.Filter = "Database files (*.mdb)|*.mdb|All files 


(x) [eget 


‘if error encountered, skip next command 
On Error Resume Next 


. ShowOpen 

If Err.Number = cdlCancel Then 
GetNewDatabase = "" 

Else 


‘set return filename to selected file 
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GetNewDatabase = .FileName 
End If 
End with 
Egret Ihie 


End Function 


LKKKEKKKKKKKKEK KKK KKK KKEKKEKKK KKK KK KKK KK KKK KKK KKKHKKKKKKKKKKKKKKK 


‘Module: frmAbout. frm 


4 4 
‘Programmer: Kevin Colon 
tek KKK KK KKK KKH KKK KKKIKKEKKKKKaKKEKKKKKKKKKKKEKKKKK KK KKK KKK KKK KKK KK 


Option Explreit 


' Reg Key Security Options... 

Const READ CONTROL = &H20000 

Const KEY_QUERY_VALUE = &Hl1 

Const KEY_SET_VALUE = &H2 

Const KEY_CREATE SUB_KEY = &H4 

Const KEY_ENUMERATE _SUB_KEYS = &H8 

Gonst KEY NOTIFY = &Hi0 

Const KEY_CREATE_LINK = &H20 

Const KEY_ALL ACCESS = KEY_QUERY_VALUE + KEY _SET_VALUE + 
KEY CREATE SUB_KEY + KEY ENUMERATE SUB _KEYS + KEY_NOTIFY + 
KEY CREATE LINK + READ CONTROL 


" Reg Key ROOT Types... 
Const HKEY_LOCAL MACHINE = &H80000002 
GCOnst 2kRen=soUCCESS = 0 


Const REG_SZ = 1 ' Unicode nul terminated 
string 

Const REG _DWORD = 4 ' 32-bit number 

Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" 
Const gREGVALSYSINFOLOC = "MSINFO" 

Const gREGKEYSYSINFO = "“SOFTWARE\Microsoft\Shared Tools\MSINFO" 
Const QREGVALSYSINFO = "PATH" 


Private Declare Function RegOpenkKeyEx Lib "advapi32" Alias 
"RegOpenkKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal 
ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) 
As Long 

Private Declare Function RegQueryValueEx Lib "advapi32" Alias 
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, 
ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, 
ByRef lpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As 
Long) As Long 


Private Sub cmdSysInfo_Click() 
Call StartSysInfo 
End Sub 


a4 


Private Sub cmdOK_Click() 
Unload Me 
End Sub 


Private Sub Form_Load() 

Me.Caption = "About " & App.Title 

iblVersion.Caption = “Version " & App.Major & 7". "se.4pp.Minor — 7s" 
& App.Revision 

lb1lTitle.Caption = App -tircie 
End Sub 


Public Sub StartSysInfo() 
On Error GoTo Sysinterrs 


Dim rc As Long 
Dim SysInfoPath As String 


‘ Try To Get System Info Program Path\Name From Registry... 
If GetKeyValue (HKEY_LOCAL_ MACHINE, QgREGKEYSYSINFO, gREGVALSYSINFO, 
SysInfoPath) Then 
‘ Try To Get System Info Program Path Only From Registry... 
ElseIf GetKeyValue (HKEY_LOCAL_ MACHINE, gREGKEYSYSINFOLOC, 
QGREGVALSYSINFOLOC, SysInfoPath) Then 
‘ Validate Existance Of Known 32 Bit File Version 
LE. (Dir (Sysintopatiware. \MSINFO32.EXE") <> “") Then 
SysInfoPath = SysInfoPath & "\MSINFO32.EXE" 


‘ Error - File Can Not Be Found... 
Else 
Goro .SVsSimioEms. 

2H 9 Xe baad ve 
‘ Error - Registry Entry Can Not Be Found... 
Else 

GoTo SysInfoErr 
Bnawrt 


Call Shell(SysInfoPath, vbNormalFocus) 


EXLes Sub 
SYVSimEOnEY : 
MsgBox "System Information Is Unavailable At This Time", vbOKOnly 


End Sub 


Public Function GetKeyValue(KeyRoot As Long, KeyName As String, 
SubKeyRef As String, ByRef KeyVal As String) As Boolean 


Dim i As Long * Loop 
Counter 

Dim rc As Long ‘ Return 
Code 

Dim hKey As Long ’ Handle To 


An Open Registry Key 
Dim hDepth As Long é 


Dim KeyValType As Long ‘ Data Type 
Of A Registry Key 
Dim tmpVal As String ’ Tempory 
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Storage For A Registry Key Value 

Dim KeyValSize As Long ’ 4S1Zze°.0f 
Registry Key Variable 

’ Open RegKey Under KeyRoot {HKEY_LOCAL MACHINE... } 

rc = RegOpenKeyEx (KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ’ Open 
Registry Key 


If (re <> ERROR_SUCCESS) Then GoTo GetKeyError ’ Handle 
Eiemor. . 

tmpvere— Strings(1024, 0) ‘ Allocate 
Variable Space 

KeyValSize = 1024 ’ Mark 


Variable Size 


ew we ww we ww we we ww ww cw ce ew we we we we we ww i i 


my ee ee mc ce ew ww we wc we wc we we ew we we we 


rec = RegQueryValueEx(hKey, SubKeyRef, 0, _ 
KeyValType, tmpVal, KeyValSize) : 
Get/Create Key Value 


If (re <> ERROR_SUCCESS) Then GoTo GetKeyError ’ Handle 
igie@ies 
If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then anh ets bo) 
Adds Null Terminated String... 
tmpVal = Left(tmpVal, KeyValSize - 1) SNe 
Found, Extract From String 
Else ’ Wann? 
Does NOT Null Terminate String... 
tmpVal = Left(tmpVal, KeyValSize) ‘ata ] 1] Wet 
Founda, ExX@ract String Only 
Melole dle 


meee ew ee ee ee ee es es es i ss i ei ee a ss ss see i i iii 


‘ Determine Key Value Type For Conversion... 


Select Case KeyValType ’ Search 
Data Types... 
Case REG_SZ io Serene ele; 
Registry Key Data Type 
KeyVal = tmpVal . Copy 
String Value 
Case REG_DWORD ‘ Double 
Word Registry Key Data Type 
For i = Len(tmpVal) To 1 Step -1 ’ Convert 
Each Sit 
KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, 1, 1))) ‘ Build 
Value Char. By Char. 
Next 
KeyVal = Formats("&h" + KeyVal) ‘ Convert 
Double Word To String 
End Select 


Sy 


GetKeyValue = True ’ Return 
Success 


rc = RegClosekey (hKey) ’ Close 
Registry Key 

Exit Function ' Exit 
GetKeyError: ’ Cleanup After An Error Has Occured... 

KeyVal = "" ’ Set 
Return Val To Empty String 

GetKeyValue = False ’ Return 
Failure 

re = RegCloseKey (hKey) ’ Close 


Registry Key 
End Function 


Private Sub Form_Unload(Cancel As Integer) 
Unload Me 


End Sub 
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‘Module: frmAcgEvents.frm 

‘Description: Allows user to access acquisition event 
: records for addition, deletion, and 

, modification. 

‘Programmer: Kevin Coldn 
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Opticnmexplicit 


Private WordApp As Word.Application 
Private Doc As Word.Document 
Private Sel As Word.Selection 


Private Sub cboPlatforms_Click() 


I£f cboPlatforms.ListIndex >= QO Then 
txtPlatformid = cboPlatforms.Text 


Ena If 


End Sub 
Private Sub cboSensTypes_Click() 


If cbhoSensTypes.ListIndex >= 0 Then 
txtSensorTypeld = cboSensTypes.Text 


End I€£ 


End Sub 
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Private Sub cboThreatTypes_Click() 


If cboThreatTypes.ListIndex >= 0 Then 
txtThreatTypelId = cboThreatTypes.Text 


Ena Lt 
End Sub 
Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 
If cmdAdd.Caption = "&Add Event" Then 


datAcgqEvents.Recordset .AddNew 
cboPlatforms.Enabled = True 
cboPlatforms.ListIndex = -1 
cboThreatTypes.Enabled = True 
cboThreatTypes.ListIndex = -1 
cboSensTypes.Enabled = True 
cboSensTypes.ListIndex = -1l 
txtTrackId = True 
txtAssess.Enabled = True 
txtAltitude.Enabled = True 
txtLocation.Enabled True 
txtPriority.Enabled True 
txtSpeed.Enabled = True 
txtTime.Enabled = True 
cmdUpdate.Enabled = False 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdAdd.Caption = "&Cancel" 
mnuFile.Enabled = False 
datAcgqEvents.Enabled = False 


il 


Else 
datAcqEvents.Recordset .CancelUpdate 
datAcgqEvents.Enabled = True 
cboPlatforms.Enabled = False 
cboThreatTypes.Enabled = False 
cboSensTypes.Enabled = False 
txtTrackId = False 
txtAssess.Enabled = False 
txtAltitude.Enabled = False 
txtLocation.Enabled = False 
txtPriority.Enabled = False 
txtSpeed.Enabled = False 
txtTime.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
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cmdAdd.SetFocus 
Bnd Le 


emcCAddsGiiGck Exit: 
EXit. SsuD 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn Off error trappumg 


End Sub 
Private Sub cmdDel_Click() 


‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datAcqEvents.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Event " & txtAcqEventid & "?", vbYesNo, 


"Delete Event") 
If iResp = vbYes Then 
With datAcgqEvents.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
If .EOF Then 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset is empty.", 


vbinformation, "No Records" 


Ene ie 
[Hately thse 
End With 
Enea t 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, "Delete Event" 
Ene Et 


cmdDel_Click_Exit: 
Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 


62 


MsgBox stMsg, vbExclamation, "Database Error" 
On ErvomeGolo, 0 SeuensOrt Error trapping 


Brel sub 
Private Sub cmdSave_Click() 
‘save the current record 
On Error GoTo HandleSaveErrors 
If cboThreatTypes.ListIndex >= 0 And cboSensTypes.ListIndex >= 0 


Then 
If Val(txtCounter) < 10 Then 


txtAcgqEventiId.Text = "AEOQ0O00" & txtCounter.Text 
Else 
TE Val (exeCounter)  < 100eThen 
CxXeAeqEVventid.Text =e"AEO0O0" & txtCounterwmfext 
Else 
If Val(txtCounter) < 1000 Then 
txtAcgEventid.Text = "AE00" & txtCounter.Text 
Else 
If Val(txtCounter) < 10000 Then 
txtAcgqEventId.Text = "AEO" & txtCounter.Text 
Else 
txtAcgqEventId.Text = "AE" & txtCounter.Text 
lois Wie 
lay@yel 306 
Ene, ff 
Ene. if 


datAcqEvents.Recordset.Update 
Else 
MsgBox "You must select a threat and sensor before saving." 
, vbExclamation, "Add Acquisition Event" 
datAcgqEvents.Recordset.CancelUpdate 
imate Visa 


cboPlatforms.Enabled = False 
cbhoThreatTypes.Enabled = False 
cbhoSensTypes.Enabled = False 
txtTrackId = False 
txtAssess.Enabled = False 
txtAltitude.Enabled = False 
txtLocation.Enabled False 
txtPriority.Enabled = False 
txtSpeed.Enabled = False 
txtTime.Enabled = False 
cmdSave.Enabled = False 
cmdUpdate.Enabled = True 
cmdDel.Enabled = True 
cmdAdd.Caption = "“&Add Event" 
mnuFile.Enabled = True 
datAcgqEvents.Enabled = True 
cmdAdd.SetFocus 
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datAcqEvents.Enabled = True 


cmdSave_Click_Exit: 
Exe ou 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error Gotem@ “eurnotft error trapping 


Case 3058, 3315 ‘no entry in key field 
stMess = "Select a Sensor type and threat before saving." 
MsgBox 'stMess, vbExclamation, "Database Error" 
On, Exrom Golo 0 fturn Off ECnuemetrapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
Se Bree DeSseription 
MsgBox stMess, vbExclamation, "Database Error" 
datAcqEvents.Recordset .CancelUpdate 
Resume Next 
End Select 


End Sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datAcqEvents.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&é&bmit" 
cboPlatforms.Enabled = True 
cbhoThreatTypes.Enabled = True 
cboSensTypes.Enabled = True 
txtTrackid = True 
txtAssess.Enabled = True 
txtAltitude.Enabled = True 
txtLocation.Enabled = True 
txtPriority.Enabled = True 
txtSpeed.Enabled = True 
txtTime.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = False 
cmdAdd.Enabled = False 
mnuFile.Enabled = False 
datAcqEvents.Enabled = False 
datAcqEvents.Recordset.Edit 


Else 


If datAcqEvents.Recordset.RecordCount > 0 Then 
datAcqEvents.Recordset .Update 
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cboPlatforms.Enabled = False 
cboThreatTypes.Enabled = False 
cboSensTypes.Enabled = False 
txtTrackId = False 
txtAssess.Enabled = False 
txtAltitude.Enabled = False 
txtLocation.Enabled = False 
txtPriority.Enabled = False 
txtSpeed.Enabled = False 
txtTime.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 
cmdUpdate.Caption = "“&Update" 
mnuFile.Enabled = True 
datAcqEvents.Enabled = True 


End If 
Bnd Use 


End Sub 
Private Sub datAcgEvents_Reposition() 
SetAcgEventsRecordNumber 


End Sub 


Private Sub FillPlatformCombo() 


Dim iCount As Integer 
‘fill the PlatType combo box 
cbhoPlatforms.Clear 


With datPlatforms 
.Refresh ‘open database 
iCount = .Recordset.RecordCount 


fertl the list 
Do Until .Recordset.EOF 
If .Recordset!Platform <> "" Then 
cboPlatforms.AddIitem .Recordset!Platform 


End If 
.Recordset .MoveNext 
Loop 
End With 


End Sub 
Private Sub FillSensTypeCombo () 


Dim iCount As Integer 
‘fill the PlatType combo box 
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cboSensTypes.Clear 


With datSensTypes 


.Refresh ‘open database 
Do Until .Recordset.EOF ‘fill the tise 
If .Recordset!SensorType <> "" Then 


cboSensTypes.AddItem .Recordset!SensorType 


EnGwLt 
.Recordset .MoveNext 


Loop 
End With 


End Sub 

Private Sub FillThreatTypeCombo () 
Dim iCount As Integer 
‘fill the PlatType combo box 


cboThreatTypes.Clear 


With datThreatTypes 


.Refresh ‘open database 
Do Until .Recordset .EOF ‘fill the list 
If .Recordset!ThreatType <> "" Then 


cboThreatTypes.AddItem .Recordset! ThreatType 


IMorele lini 
.Recordset .MoveNext 


Loop 
End With 


End Sub 


Private Sub Form_Load() 


datPlatforms.DatabaseName = gstNewDatabase 
datSensTypes.DatabaseName = gstNewDatabase 
datThreatTypes.DatabaseName = gstNewDatabase 
datAcqEvents.DatabaseName = gstNewDatabase 


FillPlatformCombo 
FillSensTypeCombo 
FillThreatTypeCombo 


With datAcqEvents 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
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End If 
End With 


SetAcqEventsRecordNumber 


End Sub 
Private Sub SetAcqEventsRecordNumber () 
Dim i1RecordCount As Integer 


Dim iCurrentRecord As Integer 


iRecordCount = datAcqEvents.Recordset.RecordCount 
iCurrentRecord = datAcgEvents.Recordset.AbsolutePosition + 1 


If datAcqEvents.Recordset.EOF Then 
datAcqEvents.Caption = "No more records" 
Else 
datAcqEvents.Caption = "Acquisition Event Record " & 
iCurrentRecord & _ 
"of " & 1RecordCount 
Ene@e Le 


End Sub 


Private Sub mnuFileBack_Click() 
frmMain. Show 
frmMain.Enabled = True 
Unioad Me 
End Sub 
Private Sub mnuPrint_Click() 
frmPrint.Show 
On Error GoTo mnuPrintErrors 
If bContinue = True Then 
With datAcgqEvents.Recordset 
If bWord = True Then 
Set WordApp = New Word.Application 
WordApp.Documents.Add 


Set Doc = WordApp.ActiveDocument 
Set Sel WordApp.Selection 


HI 


Doc.Tables.Add Range:=Sel.Range, NumRows:=.RecordCount, 
NumColumns: =11 
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cell 


cell 


cell 


cell 


cell 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


Sel. 
Sel. 


TypeText Text:="Acquisition" 
MeveRr ghee wnat -=12 


TypeText Text:="Trackid" 
MoveRight unit:=12 


TypeText Text:="AcqTime" 
MoveRight unit:=12 


TypeText Text:="ThreatType" 
MoveRight unit:=12 


TypeText Text:="AcqPlatform" 
MoveRignt unit:=12 


TypeText Text:="AcqSensorType" 
MoveRight unit:=12 


TypeText Text:="TrackLocation" 
MovVerRront unt :=12 


TypeText Text:="TrackAltitude" 
MoveRight unit:=12 


TypeText Text:="TrackSpeed" 
MoveRignt unit:=12 


ives lexte text = Track Priority. 
MoveRight unit:=12 


TypeText Text:="Remark" 
MoveRight unit:=12 


Do UnEil ZeOr 


Sel.TypeText Text:=!Acquisition 
Sel .MoveRight unit:=12 


Sel.TypeText Text:=!TrackId 
Sel.MoveRight unit:=12 


Sel.TypeText Text:=!AcqTime 
Sel.MoveRight unit:=12 


Sel.TypeText Text:=!ThreatType 
Sel MoOveRIGnt uni teel2 


Sel .TypeText Text:=!AcqPlatform 
Sel .MoveRight unit:=12 
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*V2Z2=nexe 


‘12=next 


“eZ =nNext 


TA Z=next 


’12=next 


I 2=next 


‘12=next 


eT2=next 


‘12=next 


4 2 =neoee 


‘12=next 


cell 


cell 


cell 


cell 


cell 


cell 


cell 


cell 


cell 


cell 


cell 


‘12=next 


‘12=next 


VZ=next 


’12=next 


= nMe ct 


Sel .TypeText Text:=!AcqSensorType 


Z=next 


‘12=next 


‘1 2=nexe 


‘12=next 


‘12=next 


Pi Z=nexe 


For Output As #1 
“TrackiGuy, Ghr (9); 
"AcaPlatform"; 

ug i 

9); "TrackSpeed"; 


9); “Remark"; 


Sel .MoveRight unit:=12 
cell 
Sel.TypeText Text:=!TrackLocation 
Sel.MoveRight unit:=12 
cell 
Sel.TypeText Text:=!TrackAltitude 
Sel.MoveRight unit:=12 
cell 
Sel.TypeText Text:=!TrackSpeed 
Sel .MoveRight unit:=12 
cell 
Sel.TypeText Text:=!TrackPriority 
Sel.MoveRight unit:=12 
cell 
Sel.TypeText Text:=!Remark 
Sel.MoveRight unit:=12 
cell 
-MoveNext 
Loop 
WordApp.Visible = True 
Set WordApp = Nothing 
Else 
If bText = True Then 
Open App.Path & "\AcgEvents.txt" 
Prime #1, “Ac@@asition"; Chr(9); 
Ae bimemamcnr (9) 5s. 
"ThreatType"; Chr(9); 
Glam (3) 3 (am 
"AcqSensorType"; Chr ( 
DP pmacmnoca tdom es Ghia ( 3 er 
WTrackmler tude >, Chr ( 
Chr (ey; = 
mirackPriomiry. ,=Chr ( 
Chr (9) 
Do Unt wie EOF 
Preinemerie  'AcGuULSteaon, Chr (9) ; 


Mirage 1c sail (9) ; 
f!AcqTime; Chr(9); 
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liaeeat Type. ellis (oa. 
imeqgPlatform; Chr(9); 
tAcqSensorType; Chr(9); 
'TrackLoGation;, Charlo): 
'TrackAltitude; Chr(9); 
'TrackSpeed; Chr(9); 
Ii'TrackPEiority memr (9): 
f'Remark; Chr (9) 


.MoveNext 
Loop 
Close #1 
Ena elt 
End If 
.MoveFirst 
End With 
lige! ahi8 
bContinue = False 
bWord = False 
bText = False 
mnuPrintErrors: 
Select Case Err.Number 
Case 94 
Sel.TypeText Text:="" 
Resume Next 
End Select 
End Sub 


Private Sub txtPlatformId_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


datPlatforms.Recordset .MoveFirst 
ig texte lartormid <> "" "Then 
Do Until iIndex = datPlatforms.Recordset.RecordCount Or bFound 
If datPlatforms.Recordset! Platform = txtPlatformId Then 
cboPlatforms.Text = datPlatforms.Recordset! Platform 
bFound = True 


Else 
datPlatforms.Recordset .MoveNext 
Lingex = Lindex + 1 
Ene Lf 
Loop 
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Else 
cboPlatforms .ListIndex = -1 


EnGaet i 
End Sub 
Private Sub txtSensorTypelId_Change () 


‘selects correct combo box listing 
Dim iIndex As Integer 

Dim bFound As Boolean 

Dim num As Integer 


With datSensTypes 
.Recordset.MoveFirst 
If txtSensorTypelId <> "" Then 


Do Until iIndex = cboSensTypes.ListCount Or bFound 
If .Recordset!SensorType = txtSensorTypeId Then 
cboSensTypes.Text = .Recordset!SensorType 
BPeunas— True 


Else 
.Recordset .MoveNext 
iIndex = iIndex + 1 


JAgiely hve 
Loop 


Else 
cboSensTypes.ListIndex = -1l 


End If 
End With 


End Sub 
Private Sub txtThreatTypelId_Change () 


‘selects correct combo box listing 


Dim iIndex As Integer 
Dim bFound As Boolean 


datThreatTypes.Recordset.MoveFirst 
If txtThreatTypeld <> "" Then 


Do Until iIndex = cboThreatTypes.ListCount Or bFound 
If datThreatTypes.Recordset!ThreatType = txtThreatTypeld 
Then 
cboThreatTypes.Text = 
datThreatTypes.Recordset !ThreatType 
bFound = True 


Else 
datThreatTypes .Recordset .MoveNext 


i1Index = iIndex + 1 
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igyel  10ae 
Loop 
Else 
cboThreatTypes.ListIndex = -1l 
End 2f 


End Sub 
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‘Module: frmAcronyms.frm 

‘Description: Allows user to access acronyms 

/ records for addition, deletion, and 
: ModLiication. 

‘Programmer: Kevin Colon 


Pek eK KKK KEK KEKE KEKE KEKE KEK KEKE KEKE KEKE KKK KKK KKK KEKE KKK KKK KEKE KKK KKK KKK KEKE KEKE 


Option Expert 


Private Sub cmdAddAcronym_Click() 
On Error GoTo HandleAddAcronymErrors 


If cmdAddAcronym.Caption = "&Add Acronym" Then 
datAcronyms. Recordset .AddNew 
txtAcronym.Enabled = True 
txtAcronym.SetFocus 
txtDescription.Enabled = True 
cmdAddAcronym.Caption = "&Cancel" 
cmdSaveAcronym.Enabled = True 
cmdDelAcronym.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datAcronyms.Enabled = False 


Else 
datAcronyms.Recordset.CancelUpdate 
txtAcronym.Enabled = False 
txtDescription.Enabled = False 
cmdSaveAcronym.Enabled = False 
cmdDelAcronym.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAddAcronym.Caption = "&Addad Acronym" 
cmdAddAcronym. SetFocus 
datAcronyms.Enabled = True 


Bnd ef 


cmdAddAcronym_Click_Exit: 
Exit Sub 


HandleAddAcronymErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 


vz 


& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off error trapping 


End Sub 


Private Sub cmdDelAcronym_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelAcronymErrors 


If datAcronyms.Recordset.RecordCount > 0 Then 
i1Resp = MsgBox("Delete Acronym " & txtAcronym.Text & "?", 
vbYesNo, "Delete Acronym") 
If iResp = vbYes Then 
With datAcronyms.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
If .EOF Then 

.MovePrevious 


If .BOF Then 


MsgBox "The recordset iS empty.", 
vbInformation, "No Records" 


lajaie ydnae 
End If 
End With 
Bae fe 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, "Delete Acronym" 
Ene ht 


cmdDelAcronym_Click_Exit: 
Exit Sub 


HandleDelAcronymErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 (EUEMOLrE Crror trapping 


End Sub 


Private Sub cmdSaveAcronym_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveAcronymErrors 
If txtAcronym <> "" And txtDescription <> "" Then 
txtAcronym = UCase(txtAcronym) 
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1Resp = MsgBox("Do you want to add " & txtAcronym & _ 
"to the database?", vbYesNo + vbQuestion, 
"Add Acronym" ) 
If iResp = vbYes Then 
datAcronyms .Recordset .Update 


elem iba 
Else 
MsgBox "You must enter an acronym and a description before 
Saving.", VDExclamation _ 


"Add Acronym" 
datAcronyms.Recordset.CancelUpdate 
End If 


txtAcronym.Enabled = False 
txtDescription.Enabled = False 
cmdSaveAcronym.Enabled = False 
cmdDelAcronym.Enabled = True 
datAcronyms.Enabled = True 
mnuFile.Enabled = True 
cma@AddAcronym.Caption = "&Add Acronym" 
cmdAddAcronym. SetFocus 
cmdUpdate.Enabled = True 


cmdSaveAcronyvmect1ck EXiEe: 
Exit Sub 


HandleSaveAcronymErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “euGnh Ort Errer traporng 

Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a Acronym name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “euen Off Crror trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datAcronyms.Recordset .CancelUpdate 
Resume Next 
End Select 


End Sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datAcronyms.Recordset.RecordCount > 0 Then 
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cmdUpdate.Caption = “Su&ébmit" 
txtAcronym.Enabled = True 
txtDescription.Enabled = True 
cmdDelAcronym.Enabled = False 
mnuFile.Enabled = False 
txtAcronym. SetFocus 
cmdAddAcronym.Enabled = False 
datAcronyms.Enabled = False 
datAcronyms.Recordset.Edit 

Else 
If datAcronyms .Recordset.RecordCount > 0 Then 

datAcronyms .Recordset.Update 


txtAcronym.Enabled = False 
txtDescription.Enabled = False 
cmdDelAcronym.Enabled = True 
mnuFile.Enabled = True 
cmdAddAcronym.Enabled = True 
cmdAddAcronym. SetFocus 


cmdUpdate.Caption = "&Update" 
datAcronyms.Enabled = True 
Emee if 
End If 
End Sub 


Private Sub datAcronyms_Reposition () 
SetAcronymRecordNumber 


End Sub 


Private Sub Form_Load() 
datAcronyms.DatabaseName = gstNewDatabase 


With datAcronyms 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
Ene pt 
End With 


SetAcronymRecordNumber 


End Sub 


Private Sub Form_Unload(Cancel As Integer) 
frmMain.Show 
frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub mnuFileBack_Click() 
fi 


frmMain. ENnabledqd=. 21 aie 
Unload Me 


End Sub 
Private Sub mnuFileSearch_Click() 


datAcronyms.Recordset.FindFirst "[{Acronym] = ’" & _ 
InputBox("Enter the Acronym", "Acronym Search") & "’" 


If datAcronyms.Recordset.NoMatch Then 


MsgBox "Acronym was not found.", vbOKOnly, "Acronym Search" 
datAcronyms.Recordset.MoveFirst ‘go to first record 
End et 


End Sub 


Private Sub SetAcronymRecordNumber () 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datAcronyms.Recordset.RecordCount 
iCurrentRecord = datAcronyms.Recordset.AbsolutePosition + 1 
If datAcronyms.Recordset.EOF Then 


datAcronyms.Caption = "No more records" 
Else 
datAcronyms.Caption = "Acronym " & iCurrentRecord & _ 
i TOnw mc RECOLGeCOUmE 
En@ ie 
End Sub 
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‘Module: frmDataTypes.frm 

‘Description: Allows user to access the data types 
/ records for addition, deletion, and 
: Modrztication: 

'Programmer : Kevin Colén 


i dt a dt di at a a a a ee a et i i 
Option) Expiliere 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
datDataTypes.Recordset .AddNew 
txtDataType.Enabled = True 
txtDataType.SetFocus 
txtDescription.Enabled = True 
cmdAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
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cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datDataTypes.Enabled = False 


Else 
datDataTypes.Recordset .CancelUpdate 
txtDataType.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
datDataTypes.Enabled = True 


Enea Let 


emeAd@aeclick Exit: 
Est Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off exrorm@trappang 


End Sub 


Private Sub cmdDel_ Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datDataTypes.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete DataType " & txtDataType.Text & "?", 
vbYesNo, "Delete DataType") 
If iResp = vbYes Then 
With datDataTypes.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
Tf .EOF Then 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset is empty.", 
vbInformation, "No Records" 


BG lds 
End Lt 
End With 
En@? ir 
Else 
MsgBox "No records to delete.", vbExclamation _ 


On 


"Delete DataType" 
Sng ot 


cmdDel_Click_Exit: 
Exit Sub 


HandleDelErrors: 
Dim stMsg AS sSering 


StMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 ‘turn off error trapping 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
If txtDataType <> "" And txtDescription <> "" Then 
txtDataType = UCase(txtDataType) 
iResp = MsgBox("Do you want to add " & txtDataType & _ 
" to the database?", vbYesNo + vbQuestion, 
"Add DataType") 
If iResp = vbYes Then 
datDataTypes.Recordset .Update 


Emaoel & 
Else 
MsgBox "You must enter an DataType and a description before 
Saving.", vbExclamation _ 


"Add DataType" 
datDataTypes .Recordset.CancelUpdate 
Ene it 


txtDataType.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datDataTypes.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
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Case 3022 ‘duplicate key field 


stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 


On Error GoTo 0 stil OLL error trappang 


Gacsen3093;7 55315 ‘no entryeun kems field 


stMess = "Enter a DataType name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 


On Error GoTo 0 ‘tum OLL Crror trapping 


Case Else 


stMess = "Record could not be saved." & vbCrLf _ 


& Err.Description 


MsgBox stMess, vbExclamation, "Database Error" 


datDataTypes.Recordset.CancelUpdate 
Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
datDataTypes.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
txtDataType.Enabled = True 
txtDescription.Enabled = True 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
txtDataType.SetFocus 
cmdAdd.Enabled = False 
datDataTypes.Enabled = False 
datDataTypes.Recordset.Edit 

Else 
If datDataTypes.Recordset.RecordCount > 0 Then 

datDataTypes.Recordset .Update 


txtDataType.Enabled = False 
txtDescription.Enabled = False 
cemdDel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 


cmdUpdate.Caption = "&Update" 
datDataTypes.Enabled = True 
End If 
End if 
End Sub 


Private Sub datDataTypes_Reposition() 
SetDataTypeRecordNumber 


End Sub 


Private Sub Form_Load() 
datDataTypes.DatabaseName = gstNewDatabase 


With datDataTypes 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast : 
.Recordset .MoveFirst 
Ene, If 
End With 


SetDataTypeRecordNumber 


End Sub 

Private Sub Form_Unload(Cancel As Integer) 
frmMain.Show 
frmMain.Enabled = True 
Unload Me 

End Sub 


Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch Click() 


datDataTypes.Recordset.FindFirst "[DataType] = ’" & _ 
InputBox("Enter the Data Type", "Data Type Search") & 


“wor 


If datDataTypes.Recordset.NoMatch Then 


MsgBox "Data Type was not found.", vbOKOnly, "Data Type Search" 
datDataTypes.Recordset.MoveFirst "SO iGOmrirst record 
End If 


End Sub 


Private Sub SetDataTypeRecordNumber () 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datDataTypes.Recordset.RecordCount 
iCurrentRecord = datDataTypes.Recordset.AbsolutePosition + 1 
If datDataTypes.Recordset.EOF Then 
datDataTypes.Caption = "No more records" 
Else 
datDataTypes.Caption = "DataType " & iCurrentRecord & 
" Of Vue tReecoracount 
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payse thie 


End Sub 
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‘Module: iDaqifldlela sume 
‘DescriptHen : Allows user to access the FBE information 
: for addition, deletion, and modification. 
‘Programmer: Kevin Colon 
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Option Esgelici t 


Private Sub cmdAddFBE_Click() 
On Error GoTo HandleAddFBEErrors 


If cmdAddFBE.Caption = "&Add FBE" Then 
datFBE.Recordset .AddNew 
txtFBE.Enabled = True 
txtFBE.SetFocus 
txtDescription.Enabled = True 
txtStart.Enabled = True 
txtEnd.Enabled = True 
cmdadAddFBE.Caption = "&Cancel" 
cmdSaveFBE.Enabled = True 
cmdDelFBE.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datFBE.Enabled = False 


Else 
datFBE.Recordset .CancelUpdate 
txtFBE.Enabled = False 
txtDescription.Enabled = False 
txtStart.Enabled = False 
txtEnd.Enabled = False 
cmdSaveFBE.Enabled = False 
cmdDelFBE.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdGdFBE.Caption = "&Add FBE" 
cmdAddFBE.SetFocus 
GatFBE.Enabled = True 


sig ol @ slaw 


cmdAd@FBE_Click_Exit: 
tp,c3), Cee Seo: 


HandleAddFBEErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On EYror Goto 0 ‘EU, MMOL error tELapping 
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End Sub 


Private Sub cmdDelFBE_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelFBEErrors 


If datFBE.Recordset.RecordCount > 0 Then 
1Resp = MsgBox("Delete FBE " & txtFBE.Text & "?", vbYesNo, 
"Delete FBE") 
If 1Resp = vbYes Then 
With datFBE.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
hie fhor Then 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset 1S empty.", 
vbInformation, "No Records" 


fsholel Ile 
Agel ice 
End With 
Ponce Le 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, “Delete FBE" 
End if 


emdadDelPBE Click_Exit: 
Exit Sub 


HandleDelFBEErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

One error GoTo 0 ‘turn off error “trapping 


End Sub 


Private Sub cmdSaveFBE_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveFBEErrors 
LE (CMeR Bee” Gand txtDeseripegon <> "" And txtStarte-> “wand 
txtenee-> """ Then 
txtFBE = UCase(txtFBE) 
1Resp = MsgBox("Do you want to add " & txtFBE & _ 
"to the database?", vbYesNo + vbQuestion, 
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"Add FBE") 
If 1Resp = vbYes Then 
datFBE.Recordset.Update 
iyelsleling 


Else 
MsgBox “You must enter an FBE, a description, and dates before 
saving.", vbExclamation _ 
"Add FBE" 
datFBE.Recordset.CancelUpdate 
Enc LE 


txtFBE.Enabled = False 
txtDescription.Enabled = False 
txtStart.Enabled = False 
txtEnd.Enabled = False 
cmdSaveFBE.Enabled = False 
cmdDelFBE.Enabled = True 
datFBE.Enabled = True 
mnuFile.Enabled = True 
cmdAdGFBE.Caption = "&Add FBE" 
cmdAdGdFBE.SetFocus 
cmdUpdate.Enabled = True 


cmdSaveFBE_Click_Exit: 
Eeiht -Sub 


HandleSaveFBEErrors: 
Dim stMess' As String 
Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 Euan OL: CLrer iesapping 
Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a FBE name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 fern OLf GrEror Erapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datFBE. Recordset .CancelUpdate 
Resume Next 
Enda Select 


Enc sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
GatFBE.Recordset.RecordCount > O Then 
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cmdUpdate.Caption = "Su&ébmit" 
txtFBE.Enabled = True 
txtDescription.Enabled = True 
txtStart.Enabled = True 
txtEnd.Enabled = True 
cmdDelFBE.Enabled = False 
mnuFile.Enabled = False 
CtxtFBE.SetFocus 
cmdAddFBE.Enabled = False 
GatFBE.Enabled = False 
GatFBE.Recordset.Edit 

Else 
If datFBE.Recordset.RecordCount > O Then 

datFBE.Recordset.Update 


txXtFBE.Enabled = False 
txtDescription.Enabled = False 
txtStart.Enabled = False 
txtEnd.Enabled = False 
cmdDelFBE.Enabled = True 
mnuFile.Enabled = True 
cmdAddFBE.Enabled = True 
cmdAddFBE.SetFocus 


cmdUpdate.Caption = "&Update" 
datFBE.Enabled = True 
End it 
Encerk & 
End Sub 


Private Sub datFBE_Reposition() 
SetFBERecordNumber 
End Sub 


Private Sub Form_Load() 
datFBE.DatabaseName = gstNewDatabase 


With datFBE 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset.MoveLast 
.Recordset.MoveFirst 
Ene le 
End With 


Set FBERecordNumber 


End Sub 


Private Sub Form_Unload(Cancel As Integer) 
frmMain.Show 
frmMain.Enabled = True 
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Unload Me 
End Sub 


Private Sub mnuFileBack_Click() 
frmMain. Show 
frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub SetFBERecordNumber () 
Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datFBE.Recordset.RecordCount 
iCurrentRecord = datFBE.Recordset .AbsolutePosition + 1 
If datFBE.Recordset.EOF Then 


GatFBE.Caption = "No more records" 
Else 
GatFBE.Caption = "FBE " & iCurrentRecord & _ 
"Of "& TRecordcoune 
Ene wtf 
End Sub 
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‘Module: frmFilters.frm 


‘Description: Allows user to select filters applied to 
f target recordset parameters. 
‘Programmer: Kevin Coldén 
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Geeron Exo li cit 


Dim rsWeapons As Recordset 
Dim stSQL As String 
Dim stSQL1 As String 
Dim stDesigTime As String 
Dim stDesigDay As String 
Dim stNLTTime As String 
Dim stNLTDay As String 
Dim stLatDeg As String 
Dim stLatDir As String 
Dim stLongDeg As String 
Dim stLongDir As) String 


Private Sub chkDescription_Click() 


T£ chkDescription.Value = 1 Then 
fraDescription.Enabled = True 
Else 
fraDescription.Enabled = False 
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Ena Tt 
End Sub 
Private Sub chkLocation_Click() 


If chkLocation.Value = 1 Then 
fraLocation.Enabled = True 
Else 
fraLocation.Enabled = False 
igre! Jie 


End Sub 
Private Sub chkTime_Click() 
If chkTime.Value = 1 Then 
fraTime.Enabled = True 
Else 


fraTime.Enabled = False 
End Lf 


End Sub 
Private Sub chkWeapon_Click() 
If chkWeapon.Value = 1 Then 
fraWeapon.Enabled = True 
Else 
fraWeapon.Enabled = False 
Enea ie 
End Sub 
Private Sub cmdApply_Click() 


If chkTime = 1 And chkDescription = 1 And chkWeapon = 1 
And chkLocation = 1 Then 


Else 
If chkTime = 1 And chkDescription = 1 And chkWeapon = 1 
And chkLocation = 0 Then 


Else 


If chkTime = 1 And chkDescription = 1 And chkWeapon = 0 
And chkLocation = 1 Then 


Else 
If chkTime = 1 And chkDescription = 0 And chkWeapon = 1 


And chkLocation = 1 Then 
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Else 
If chkTime = 0 And chkDescription = 1 And chkWeapon 


=i eel 
mma ChkLocation = 1 Then 
Else 
If chkTime = 1 And chkDescription = 1 And 
chkWeapon = 0 _ 
And chkLocation = 0 Then 
Else 
If chkTime = 1 And chkDescription = 0 And 
chkWeapon = 1 _ 


And chkLocation = O Then 


Else 
LesehnkTime = O° And “chkDescriperon =o 
And chkWeapon = 1 _ 
And chkLocation = 0 Then 
stSOL = "Select * from Target " & _ 
"Where Description = ’" & 
ExteDesertmotion.Text & "* " & _ 
"And WeaponType = ’" & 


cboWeapon.Text & "’" 


With frmTargets2.datTargets 
.RecordSource = stSQL 
.Refresh 

End With 


Else 
If chkTime = 1 And chkDescription = 
0 And chkWeapon = 0 


Ana ehkLocation = L Them 


Else 
If chkTime = 0 And 
chkDescription = 1 And chkWeapon = 0 _ 
And chkLocation = 1 Then 
Else 
If chkTime = 0 And 
chkDescription = 0 And chkWeapon = 1 _ 
; And chkLocation = 1 
Then 
Else 
If chkTime = 1 And 
chkDescription = 0 And chkWeapon = 0 _ 
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mac cChkLocation =—0 
Then 


Else 
If chkTime = 0O And 
chkDescription = 1 And chkWeapon = 0 


And chkLocation 


= 0 Then 

stSOQL = "Select 
* from Target. vx _ 

"Where 

Description = ’" & txtDescription.Text & "’" 

With 
frmTargets2.datTargets 
.RecordSource = stSQL 

.Refresh 
End With 
Else 


If chkTime = 0 
And chkDescription = 0 And chkWeapon = 1 


And 
chkLocation = 0 Then 

stSQL = 
"Select * from Target " & _ 
"Where WeaponType = ‘" & cboWeapon.Text & "’" 

With 
frmTargets2.datTargets 
.RecordSource = stSQL 
.Refresh 

End With 

Else 


If chkTime 
= Q And chkDescription = 0 And chkWeapon = 0 
And 

chkLocation = 1 Then 


Else 
136 
chkTime = 0 And chkDescription = 0 And chkWeapon = 0 


chkLocation = 0 Then 
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StSQL = "Select * from Target" 


With frmTargets2.datTargets 
.RecordSource = stSQL 


.Refresh 


ake 
With 


era Lf 
Iyevel  Ibse 
Ende. 
Bnd Lf 
Bn@e a & 
Ene 
Enicic ies 
EnG= be 
EnGiolet 
EMGe 
Ena Lf 
Bnd If 
Ene 2 
Bae if 
ng iolnitsa 
Bucy lf 


If chkTime.Value = 1 Then 
Else 
Enc Lf 
me Chicbescription.Valuic.—sls then 
Else 
Bona LE 
If chkWeapon.Value = 1 Then 
stSQL = "Select * from Target where WeaponType = ‘" & 
cboWeapon.Text & "’" 
With frmTargets2.datTargets 
.RecordSource = stSQL 
.Refresh 


End With 


Else 
stSQL = "Select * from Target" 
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With frmTargets2.datTargets 
.RecordSource = stSOL 
.Refresh 

End With 

End If 
LE Cchkbhocatron.Valve = 1 Then 


Else 


End If 


End Sub 
Private Sub cmdCancel_Click() 


frmTargets2.Enabled = True 
Me .Hide 


End Sub 

Private Sub cmdOK_Click() 
cmdApply_Click 
frmTargets2.Enabled = True 
frmTargets2.Show 
Me .Hide 

End Sub 

Private Sub FillcboWeapons() 
With rsWeapons 


Do Unt Hee eer 
cboWeapon.AddItem !WeaponType 


.MoveNext 
Loop 
End With 
cboWeapon.ListIndex = -1 


End Sub 
Private Sub Form_Load() 
SstSQL1 = "Select WeaponType from WeaponType" 


Set rsWeapons = db.OpenRecordset (stSQL1) 
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FillcboWeapons 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 
frmTargets2.Enabled = True 


Me .Hide 


End Sub 
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‘Module: frmFireCmdEvent.frm 

‘Description: Allows user to access the fire command event 
: records for addition, deletion, and 

g modification. 

‘Programmer : Kevin Col6én 
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Oprion Explicit 


Dim rsNomination As Recordset 

Dim rsTarget As Recordset 

Dim rsPlatform As Recordset 

Dim stSQL1l As String 

Dim stSQL2 As String 

Dim stSQL3 As String 

Private WordApp As Word.Application 
Private Doc As Word.Document 
Private Sel As Word.Selection 


Private Sub cboNomination_Change() 
If cboNomination.ListIindex >= 0 Then 
txtNomination = cboNomination.Text 
End If 
End Sub 
Private Sub cboPlatform_Change() 
If cboPlatform.ListiIndex >= 0 Then 
EXEPlacLoOrm = CbhoPlatftorm. Text 
Ena cle 
End Sub 


Private Sub cboTarget_Change() 


If cboTarget.ListIndex >= 0 Then 
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txtTarget = cboTarget.Text 
Eel ae 


End Sub 
Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 
If cmdAdd.Caption = "&Add Event" Then 


datFireCommand. Recordset .AddNew 
cboTarget.Enabled = True 
cboNomination.Enabled = True 
cboPlatform.Enabled = True 
cbhoTarget.ListIndex = -1 
cboNomination.ListIndex = -1l 
cboPlatform.ListIndex = -1l 
txtTimeSent.Enabled = True 
txtTimeRcvd.Enabled = True 
EXEOCECIG=Enabled — True 
chkEngage.Enabled = True 
cmdUpdate.Enabled = False 
cmdadSave.Enabled = True 
cmdDel.Enabled = False 
cmdAdd.Caption = "&Cancel" 
mnuFile.Enabled = False 
datFireCommand.Enabled = False 


Else 


datFireCommand. Recordset .CancelUpdate 
cboTarget.Enabled = False 
cboNomination.Enabled = False 
cboPlatform.Enabled = False 
txtTimeSent.Enabled = False 
txtTimeRcvd.Enabled = False 
txtOCCCId.Enabled = False 
chkEngage.Enabled = False 
cmdadUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datFireCommand.Enabled = True 
cmdAdd.SetFocus 


Ender: 


cmadAdda_Click_Exit: 


Exit Sub 
HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 
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Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error *GeToer0 ‘tur Off error trapping 


End Sub 

Private Sub cmdDel_Click() 
Dim iResp As Integer 
On Error GoTo HandleDelErrors 


If datFireCommand.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Event " & txtFireCommand & "?", vbYesNo, 


"Delete Event") 
If iResp = vbyes Then 
With datFireCommand. Recordset 

.Delete 

.MoveNext 

If .EOF Then 
.MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbInformation, "No Records" 


Bena. it 
Ec t 
End With 
Enawlr 
Else 
MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End be 
emabel Click: 
lapealae, Sybille: 
HandleDelErrors: 
Dim stMess As String 
stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 


Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 


End Sub 
Private Sub cmdSave_Click() 


‘save current record 
On Error GoTo HandleSaveErrors 
If cboTarget.ListIndex >= 0 And cboNomination.ListIndex >= 0 And 
cboPlatform.ListIindex >= 0 Then 
LE Val(extCounter)”< 910 Then 
txtFireCommand.Text = "FCOQ000" & txtCounter. Text 
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Else 
If Val(txtCounter) < 100 Then 


txtFireCommand.Text = "FC0O00" & txtCounter.Text 
Else 
LE Val({ exeGounter) < 1000 Then 
txtFireCommand.Text = "FCOO" & txtCounter. Text 
Else 
hEP Vetere Sounter) < 10000 Then 
txtFireCommand.Text = "FCO" & txtCounter.Text 
Else 
txtFireCommand.Text = "FG" <6 txt@ounter. Text 
Bncusl t 
Ihgtel 12 
helo ine 
End it 


datFireCommand.Recordset.Update 
Else 
MsgBox "You must select a Nomination Event, a Target, and a 
Platform before saving." _ 
, vVbExclamation, "Add Fire Command Event" 
datFireCommand.Recordset.CancelUpdate 
End ease 


cbhoTarget.Enabled = False 
cboNomination.Enabled = False 
cbhoPlatform.Enabled = False 
txtTimeSent.Enabled = False 
txtTimeRcvd.Enabled = False 
txtOCCCIid.Enabled = False 
chkEngage.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption "SAdd Event" 
mnuFile.Enabled = True 
datFireCommand.Enabled = True 
cmdAdd. SetFocus 


datFireCommand.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
OneErroreGoTo. 0 timne ort error trapping 


Case 3058, 3315 ‘no entry in key field 
stMess = "Select Nomination Event, Target, and Platform 
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before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 Seurn Off error trapping 


Case Else 


stMess = “Record could not be saved." & vbCrLf _ 


& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datFireCommand.Recordset.CancelUpdate 
Resume Next 
End Select 


End Sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datFireCommand.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
cboTarget.Enabled = True 
cboNomination.Enabled = True 
cboPlatform.Enabled = True 
txtTimeSent.Enabled = True 
txtTimeRcvd.Enabled = True 
txtOCCCId.Enabled = True 
chkEngage.Enabled = True 
cmdAdd.Enabled = False 
emdSave.Enabled = False 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
datFireCommand.Enabled = False 
datFireCommand.Recordset.Edit 


Else 
If datFireCommand.Recordset.RecordCount > O Then 
datFireCommand.Recordset.Update 


cboTarget.Enabled = False 
cboNomination.Enabled = False 
cboPlatform.Enabled = False 
txtTimeSent.Enabled = False 
txtTimeRcvd.Enabled = False 
txtOCCCId.Enabled = False 
chkEngage.Enabled = False 
cemdDel.Enabled = True 
emdAdd.Enabled = True 
cmdAdd.SetFocus 
cmdUpdate.Caption = "&Update" 
mnuFile.Enabled = True 
datFireCommand.Enabled = True 


End If 
Epa LE 
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End Sub 

Private Sub datFireCommand_Reposition() 
SetFireCommandRecordNumber 

End Sub 

Private Sub Form_Load() 


datFireCommand.DatabaseName = gstNewDatabase 


stSOL1 = "Select Nomination from Nomination" 
stSQL2 = "Select TargetId from Target" 
SstSQL3 = "Select Platform from Platform" 


Set rsNomination = db.OpenRecordset (stSQL1) 
Set rsTarget = db.OpenRecordset (stSQL2) 
Set rsPlatform = db.OpenRecordset (stSQL3) 


’£i11 cboNomination 

Do Until rsNomination.EOF 
cboNomination.AddItem rsNomination!Nomination 
rsNomination.MoveNext 

Loop 


‘ti li febeolTarget 

Do Until rsTarget.EOF 
cbhoTarget.AddItem rsTarget!TargetId 
rsTarget .MoveNext 

Loop 


*£i11 choPlatiorm 

Do Until rsPlatform.EOF 
cboPlatform.AddItem rsPlatform! Platform 
rsPlatform.MoveNext 

Loop 


With datFireCommand 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset.MoveFirst 
End If 
End With 


SetFireCommandRecordNumber 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
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Unload Me 
End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub SetFireCommandRecordNumber ( ) 


Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datFireCommand.Recordset.RecordCount 
iCurrentRecord = datFireCommand.Recordset.AbsolutePosition + 1 


If datFireCommand.Recordset.EOF Then 
datFireCommand.Caption = "No more records" 
Else 
datFireCommand.Caption = "Fire Command Event Record " & 
iCurrentRecord & _ 
"of " & iRecordCount 
Ene If 
End +Su@b 
Private Sub mnuFilePrint_Click() 
frmPrint.Show 
On Error Goro mmuPrintErrors 
If bContinue = True Then 
With datFireCommand.Recordset 
If bWord = True Then 
Set WordApp = New Word.Application 
WordApp .Documents.Add 


Set Doc = WordApp.ActiveDocument 
Set Sel = WordApp.Selection 


Doc.Tables.Add Range:=Sel.Range, NumRows:=.RecordCount, 


NumColumns :=6 


Sel.TypeText Text:="FireCommand" 


Sel.MoveRight unit:=12 ’12=next cell 


Sel.TypeText Text:="Nomination" 


Sel.MoveRight unit:=12 ’12=next cell 


Th 


cell 


cei 


cell 


cell 


cell 


cell 


Cherry: 


Sel 
Sel 


Sel. 


Sel 


Sel. 


Sel 


Sel 
Sel 


.TypeText Text:="TargetId" 
.MoveRight unit:=12 


TypeText Text:="FCTimexmit" 


.MoveRight unit:=12 


TypeText Text:="FCTimeRcvd" 


Mover One Unit :=12 


.TypeText Text:="FirerPlatform" 
.MoveRight unit:=12 


Do Wnell {EOF 


Loop 


Sel.TypeText Text:=!FireCommand 
Sel.MoveRight unit:=12 


Sel.TypeText Text:=!Nomination 
Sel.MoveRight unit:=12 


Sel.TypeText Text:=!TargetId 
Sel.MoveRight unit:=12 


Sel.TypeText Text:=!FCTimexXmit 
Sel.MoveRight unit:=12 


Sel.TypeText Text:=!FCTimeRcvd 
Sel.MoveRight unit:=12 


Sel.TypeText Text:=!FirerPlatform 
Sel.MoveRight unit:=12 


.MoveNext 


WordApp.Visible = True 


Set WordApp = Nothing 


Else 


If bText = True Then 


Vlarecii la; 


‘12=next cell 


’12=next cell 


“1 2=next veel 


‘12=next cell 


mle =nNext 


‘12=next 


‘12=next 


PU2=nexet 


2 =nexe 


‘12=next 


Open App.Path & "\FireCmds.txt" For Output As #1 


Print #1,” "FireGommand'; @ar 9). 
eine 9 ) ; 


98 


"Nomination"; 


LeCramexmit"= Chr(9); "“FC@imeRcva’ - 


Claial Gp ae 
"FirerPlatform"; Chr(9) 
DoseUntil -BOF 
Print #1, !FireCommand; Chr(9):; 
'Nomination; Chr(9); 
iTargec ia men (95 
!'FCTimeXmit; Chr(9); 
'FCTimeRcvd; Chr(9); 
'FirePlatform; Chr(9) 
.MoveNext 
Loop 
Close #1 
End If 
En@eilt 
.MoveFirst 
End With 
End ise 
bContinue = False 
bWord = False 
bText = False 
MnuUPrinthrrors : 
Select Case Err.Number 
Case 94 
Sel.TypeText Text:="" 
Resume Next 
End Select 
End Sub 


Private Sub txtNomination_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsNomination.MoveFirst 
If txtNomination <> "" Then 
Do Until iIndex = rsNomination.RecordCount Or bFound 
If rsNomination!Nomination = txtNomination Then 
cboNomination.Text = rsNomination! Nomination 
bFound = True 
Else 
rsNomination.MoveNext 
lIndex = iIndex + 1 
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Ena If 


Loop 
End If 


End Sub 
Private Sub txtPlatform_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsPlatform.MoveFirst 
If txtPlattorm <> _"°" Then 
Do Until iIndex = rsPlatform.RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatform.Text = rsPlatform! Platform 
bFound = True 
Else 
rsPlatform.MoveNext 
iIndex = ilIndex + 1 
Bae it 


Loop 
End If 


End Sub 
Private Sub txtTarget_Change () 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsTarget .MoveFirst 
If txtTarget <> "" Then 
Do Until iIndex = rsTarget.RecordCount Or bFound 
If rsTarget!TargetId = txtTarget Then 


CcboTarget.Text = rsTarget!TargetId 
bFound = True 
Else 
rsTarget .MoveNext 
1Index = iIndex + 1 
Ene it 


Loop 
alo) Whe 


End Sub 


Sm K KKH KKK KKK KKKKKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KaKKa KKK KKK KKK KKK KK 


‘Module: frmFireEvent.frm 


100 





‘Description: Allows user to access the fire event records 
: for addition, deletion, and modification. 


e ta 
‘Programmer : Kevin Col6n 
Km K KKK KE KKK KEK KK KE KKK KKK KKK KKK KKK KKK KKK RK KR KKK KKK KKK KK KKK KKKKEKEKK 


Operon Expert 





Dim rsFireCommand As Recordset 


Dim stSQL As String 

Private WordApp As Word.Application 
Private Doc As Word.Document 
Private Sel As Word.Selection 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 
If cmdAdd.Caption = "&Add Event" Then 


datFire.Recordset .AddNew 
cboFireCommand.Enabled = True 
cboFireCommand.ListIndex = -1 
txtTime.Enabled = True 
txtWeaponMagStat.Enabled = True 
txtLocation.Enabled = True 
txtAltitude.Enabled = True 
txtRounds.Enabled = True 
cmdUpdate.Enabled = False 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdAdd.Caption = "&Cancel" 
mnuFile.Enabled = False 
datFire.Enabled = False 


Else 


datFire.Recordset .CancelUpdate 
cboFireCommand.Enabled = False 
txtTime.Enabled = False 
txtWeaponMagStat.Enabled = False 
txtLocation.Enabled = False 
txtAltitude.Enabled = False 
txtRounds.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datFire.Enabled = True 
cmdAdd.SetFocus 


End If 


emnqandauc li Ccheeexre: 
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Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 


Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off error trapping 


End Sub 
Private Sub cmdDel_Click() 
Dim i1Resp As Integer 
On Error GoTo HandleDelErrors 


If datFire.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Event " & txtFire & "?", vbYesNo, 
"Delete Event") 
If iResp = vbYes Then 
With datFire.Recordset 
.Delete 
.MoveNext 
Lf 2EOr Then 
.MovePrevious 
If .BOF Then 
MsgBox "The recordset is empty.", 
vbInformation, "No Records" 


Ena Lf 
chest 1g 
End With 
End If 
Else 
MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End If 
cmdDel_ Click: 
ie lic Vee, 
HandleDelErrors: 
Dim stMess As String 
stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 


Err. Desemiption 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 

End Sub 


Private Sub cmdSave_Click() 


‘Save current record 
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On Error GoTo HandleSaveErrors 


If cboFireCommand.ListIndex >= 0 And txtRounds <> "" Then 
If Val(txtCounter) < 10 Then 
txtFire.Text = "FEOO00" & txtCounter.Text 
Else 
If Val(txtCounter) < 100 Then 
Pnhoe, Lext = "“FEQOO" & txtCounter.Text 
Else 
If Val(txtCounter) < 1000 Then 
txtFire.Text = "FE0O0" & txtCounter.Text 
Else 
If Val(txtCounter) < 10000 Then 
txtFire.Text = "FEO" & txtCounter.Text 
Else 
txtFire.Text = "FE" & txtCounter.Text 
Erie. of 
Ect £ 
Enel t 
Jyplel) ihe 


datFire.Recordset.Update 
Else 
MsgBox "You must select an Fire Command Event and enter number 
of rounds before saving." _ 
, VbExclamation, “Add Fire Event" 
datFire.Recordset .CancelUpdate 
Ene ot 


cboFireCommand.Enabled = False 
txtTime.Enabled = False 
txtWeaponMagStat.Enabled = False 
txtLocation.Enabled = False 
txtAltitude.Enabled = False 
txtRounds.Enabled = False 
cmadUpdate.Enabled = True 
cmdSave.Enabled = False 

cmdDel .Enabled True 
cmdadAdd.Caption = “&Add Event" 
mnuFile.Enabled True 
datFire.Enabled True 
cmdAdd.SetFocus 


datFire.Enabled = True 


cemdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Eyror GoTo 0 ‘turn off error trapping 
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Casers0o6 oe ‘no entry in key field 
stMess = "Select Fire Command Event and enter number of 
rounds before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error Golo. 0 ‘turn off eruoOr trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datFire.Recordset.CancelUpdate 
Resume Next 
End Select 


Bnd esus 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
GatFire.Recordset.RecordCount > O Then 


cmdUpdate.Caption = "Su&ébmit" 
cboFireCommand.Enabled = True 
txtTime.Enabled = True 
txtWeaponMagStat.Enabled = True 
txtLocation.Enabled = True 
txtAltitude.Enabled = True 
txtRounds.Enabled = True 
cmdAdd.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
datFire.Enabled = False 
datFire.Recordset.Edit 


Else 
If datFire.Recordset.RecordCount > O Then 
datFire.Recordset.Update 


cboFireCommand.Enabled = False 
txtTime.Enabled = False 
txtWeaponMagStat.Enabled = False 
txtLocation.Enabled = False 
txtAltitude.Enabled = False 
txtRounds.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 
cmdUpdate.Caption = "&Update" 
mnuFile.Enabled = True 
datFire.Enabled = True 


End If 
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Iygtel Ibsg 

End Sub 

Private Sub datFire Reposition () 
SetFireRecordNumber 

End Sub 

Private Sub Form_Load() 
datFire.DatabaseName = gstNewDatabase 
StSOQL = "Select FireCommand from FireCommand" 
Set rsFireCommand = db.OpenRecordset (stSQL) 
‘fill cboFireCommand 
Do Until rsFireCommand.EOF 

cboFireCommand.AddItem rsFireCommand! FireCommand 


rsFireCommand.MoveNext 
Loop 


With datFire 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset.MoveFirst 
Ena Lt 
End With 
SetFireRecordNumber 
End Sub 


Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub SetFireRecordNumber () 


Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 
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1RecordCount = datFire.Recordset .RecordCount 
iCurrentRecord = datFire.Recordset.AbsolutePosition + 1 


Tf datFire.Recordset.EOF Then 


datFire.Caption = "No more records" 
Else 
datFire.Caption = "Fire Event Record " & iCurrentRecord & _ 
"of " & i1RecordCount 
Ene? ht 
End Sub 


Private Sub mnuFilePrint_Click() 
frmPrint.Show 


On EBErer Goto mnuPrinterrors 
If bContinue = True Then 
With datFire.Recordset 
If bWord = True Then 
Set WordApp = New Word.Application 
WordApp.Documents.Add 
Set Doc = WordApp.ActiveDocument 
Set Sel = WordApp.Selection 
Doc.Tables.Add Range:=Sel.Range, NumRows:=.RecordCount, 
NumColumns :=6 

Sel.TypeText Text:="Fire" 


Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="FireCommand" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="FireTime" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="FirerLocation" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="FirerAltitude" 
Sel.MoveRight unit:=12 ’12=next cell 


Sel.TypeText Text:="RoundsFired" 
Sel.MoveRight unit:=12 12=next. cell 


Do Until .EOF 


Sel.TypeText Text:=!Fire 
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Sel.MoveRight unit:=12 ‘12=next 


cell 

Sel.TypeText Text:=!FireCommand 

Sel.MoveRight unit:=12 ‘12=next 
cell 

Sel.TypeText Text:=!FireTime 

Sel.MoveRight unit:=12 ’12=next 
cell 

Sel.TypeText Text:=!FirerLocation 

Sel .MoveRight unit:=12 ‘12=next 
cell 

Sel.TypeText Text:=!FirerAltitude 

Sel.MoveRight unit:=12 *12=next 
cell 

Sel.TypeText Text:=!RoundsFired 

Sel.MoveRight unit:=12 ‘12=next 
cell 

.MoveNext 


Loop 
WordApp.Visible = True 


Set WordApp = Nothing 


Else 
If bText = True Then 


Open App.Path & "\FireEvents.txt" For Output As #1 


Dranieat ier 1 re Chr ( 9)“ FarecCommand”; Chrieiy 
PP asre meme ssc mr (9); 
*FirerLOocat ion "7 menr (9)- 
"FirerAltitude"; Chr(9); 


"RoundsFired"; Chr(9) 
Do Wnt 1 = EOF 


Pmaint fl Fire; Chr(9): = 
'FireCommand; Chr(9); 
Te boelime Corto i... 
'(FirerLocation; Chr(9); 
(FirerAltitude; Chr (9) ; 
!'RoundFired; Chr(9) 


.MoveNext 
Loop 
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Close #1 


End Lf 
Ena rr 


.MoveFirst 
End With 

Ende It 

bContinue = False 


bWord = False 
bText = False 


mnuPrintErrors: 
Select Case Err.Number 
Case 94 
Sel.TypeText Text:="" 
Resume Next 
End Select 


End Sub 
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‘Module: f£xrmGISRS.fxrm 

‘Description: Allows user to access the GISRS terminal 
: records for addition, deletion, and 

/ modification. 

‘Programmer: Kevin Col6én 


Te KEKE KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK Kh Ke Kh Kh Kh Kh KKK Ka Kh KKK KKK 


Opti oneiew ite lt 
Dim rsPlatform As Recordset 
Dim stSQL As String 
Private Sub cboPlatform_Click() 
If cboPlatform.ListIndex >= 0 Then 
txtPlatform = cboPlatform.Text 
Ena if 


End Sub 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
datGISRS.Recordset .AddNew 
txtTerminal.Enabled = True 
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txtTerminal .SetFocus 
txtFunction.Enabled = True 
cboPlatform.Enabled = True 
cmdadAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datGISRS.Enabled = False 


Else 
datGISRS.Recordset.CancelUpdate 
txtTerminal.Enabled = False 
txtFunction.Enabled = False 
cboPlatform.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cma@Add.Caption = "&Add" 
cmaAdd.SetFocus 
datGISRS.Enabled = True 


Ene If 


emenqa Click Exit: 
Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
Ongirrer Goro 0 *turn@oefft error trapping 


End Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datGISRS.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Terminal " & txtTerminal.Text & "?", 
vbYesNo, "Delete Terminal") 
If 1Resp = vbYes Then 
With datGISRS.Recordset 


.Delete ‘delete current record 
. MoveNext ‘move to following record 
If .EOF Then 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset is empty.", 


vbIinformation, "No Records" 
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End If€£ 


EnGetet 
End With 
Ene Le 
Else 
MsgBox "No records to delete.", vbExclamation _ 
"Delete Terminal" 
End Lf 


emdadbDeél Cliiekeatie. 
Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


StMsg = "Cannot complete operation." & vbCrLi & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, “Database Error" 

On Error GoTo 0 “tUIm OLE Crror~r Erapping 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
hewexe Terminal text. <> “" “Then 
txtTerminal.Text = UCase(txtTerminal.Text) 
iResp = MsgBox("Do you want to add" & txtTerminal.Text & _ 
"to the database?", vbYesNo + vbQuestion, 
“Add Terminal") 
If iResp = vbyes Then 
datGISRS.Recordset.Update 
els, 1638 


Else 
MsgBox “You must enter a Terminal before saving.", 
vbExclamation _ 
"Add Terminal" 
datGISRS.Recordset.CancelUpdate 
Jato llse 


txtTerminal.Enabled = False 
txtFunction.Enabled = False 
cboPlatform.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datGISRS.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 
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cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 fomplacaze key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
@QneEsror GeTo 0 ftur~n OLE Error trapping 

Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a location before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 turmeoLf error trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datGISRS.Recordset .CancelUpdate 
Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
datGISRS.Recordset.RecordCount > O Then 


cmdUpdate.Caption = "Su&ébmit" 

txtTerminal.Enabled True 

txtFunction.Enabled = True 

cboPlatform.Enabled = True 

cmdDel.Enabled = False 

mnuFile.Enabled = False 

txtTerminal.SetFocus 

cmdAdd.Enabled = False 

datGISRS.Enabled = False 

datGISRS.Recordset.Edit 

Else 

If datGISRS.Recordset.RecordCount > 0 Then 
txtTerminal = UCase(txtTerminal) 
datGISRS.Recordset .Update 


txtTerminal.Enabled = False 
txtFunction.Enabled = False 
cboPlatform.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 
cmdUpdate.Caption = "&Update" 
GatGISRS.Enabled = True 


11] 


End If 
End I€£ 


End Sub 
Private Sub datGISRS_Reposition() 
SetTerminalRecordNumber 
End Sub 
Private Sub FillPlat formCombo () 
Dim iCount As Integer 
‘fill the PlatType combo box 
cboPlatform.Clear 
With rsPlatform 
iCount = .RecordCount 
in “the ist 


PosUncit. EOF 
TES ' Platform <> "" Then 


cboPlatform.AddiItem !Platform 


iveyol -itae 
.MoveNext 
Loop 
End With 


End Sub 


Private Sub Form_Load() 


datGISRS.DatabaseName = gstNewDatabase 


stSQL = "Select Platform from Platform" 


Set rsPlatform = db.OpenRecordset (stSQL) 


FillPlatformCombo 


With datGISRS 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End” FE 
End With 


SetTerminalRecordNumber 


End Sub 
er 2 





Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch_Click() 
datGISRS.Recordset.FindFirst "({GISRSTerminal] = ‘'" & _ 
InputBox("Enter the GISRS Terminal", "GISRS Terminal 


Search") 1S tor i 


Tf datGISRS.Recordset.NoMatch Then 


MsgBox "GISRS Terminal was not found.", vbOKOnly, "GISRS 
Terminal Search" 
datGISRS.Recordset.MoveFirst ‘go™eer first record 
Ene@eie 


End Sub 


Private Sub SetTerminalRecordNumber () 
Dim TRecerdCounte As Integer 
Dim iCurrentRecord As Integer 


1RecordCount = datGISRS.Recordset.RecordCount 
iCurrentRecord = datGISRS.Recordset .AbsolutePosition + 1 
T£ datGISRS.Recordset.EOF Then 


datGISRS.Caption = "No more records" 
Else 
datGISRS.Caption = "Terminal " & iCurrentRecord & _ 
"of " & 1RecordCount 
End st 


End Sub 
Private Sub txtPlatform_Change() 


‘selects correct combo box listing 
Dim iindex As Integer 
Dim bFound As Boolean 


rsPlatform.MoveFirst 
T£ txtPlatform <> "" Then 
Do Until iIndex = rsPlatform.RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatform.Text = rsPlatform! Platform 


els 


bFound = True 
Else 
rsPlatform.MoveNext 
jIndex = iIndex + 1 
Bud ee 
Loop 
Else 
cboPlatform.ListiIndex = -1 
pnd, If 


End Sub 


Fpl ee ee eee a al 


‘Module: frmimpactEvent.frm 

‘Description: Allows user to access the impact event 
4 records for addition, deletion, and 

: mocirtaucatzen- 

‘Programmer : Kevin Colon 


ee atic ee en rns I 


Option Explicit 


Dim rsFire As Recordset 
Dim rsPlatform As Recordset 


Dim rsSensor As Recordset 

Dim stSQL1 As String 

Dim stSQL2 As String 

Dim stSOQL3 AG String 

Private WordApp As Word.Application 
Private Doc As Word.Document 
Private Sel As Word.Selection 


Private Sub cboFire_Change () 
If cboFire.ListIindex >= 0 Then 
txtFire = cboFire.Text 
End If 
End Sub 
Private Sub cboSensor_Change () 
ie cboSensor.ListIndex >= 0 Then 
txtSensor = cboSensor.Text 
End If 
End Sub 
Private Sub cboPlatform_Change () 
Bie cboPlatform.ListIndex >= 0 Then 


txtPlatform = cboPlatform. Text 
End If 
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End Sub 
Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 
If cmdAdd.Caption = "&Add Event" Then 


datImpact .Recordset .AddNew 
cboFire.Enabled = True 
cboPlatform.Enabled = True 
cboSensor.Enabled = True 
cboFire.ListIndex = -1l 
cboPlatform.ListIndex = -1 
cboSensor.ListIndex = -1 
txtImpactTime.Enabled = True 
txtBDATime.Enabled = True 
txtBDA.Enabled = True 
cmdUpdate.Enabled = False 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdAdd.Caption = "&Cancel" 
mnuFile.Enabled = False 
datImpact.Enabled = False 


Else 


datImpact.Recordset.CancelUpdate 
cboFire.Enabled = False 
cboPlatform.Enabled = False 
cboSensor.Enabled = False 
txtImpactTime.Enabled = False 
txtBDATime.Enabled = False 
txtBDA.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel .Enabled True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datImpact.Enabled = True 
cmdAdd.SetFocus 


‘povel™ ie 


emqAdd Claek Exit: 


EXlLE] Sub 
HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 


Err .Description 
MsgBox stMess, vbExclamation, "Database Error" 
On “Error .Goro 0 ‘EUenmerrtwerror trapping 
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PnGaoul 

Private Sub cmdDel_Click() 
Dim iResp As Integer 
On Error GoTo HandleDelErrors 


If datImpact.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Event " & txtImpact & "?", vbYesNo, _ 
"Delete Event") 
If iResp = vbYes Then 
With datImpact.Recordset 
.Delete 
. MoveNext 
If .EOF Then 
.MovePrevious 
i 7 SOr- hien 
MsgBox "The recordset is empty.", 
vbinformation, "No Records" 


Ene Tt 
laelelyitoe 
End With 
End If 
Else 
MsgBox "No records to delete.", vbExclamation, "Delete Event" 
Bae Lt 
cmdDel_ Click: 
Exit Sub 
HandleDelErrors: 
Dim stMess As String 
stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 


Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
Gmweerror Goto 0 


End Sub 
Private Sub cmdSave_Click() 
‘save current record 
On Error GoTo HandleSaveErrors 


If cboFire.ListIndex >= 0 Then 
Lt Val(txtCounter) < 10ethen 


Extimpact.Text = "IEGOQ00" & tUxe@ounter.Text 
Else 
Tf ValltxtCounter) =200. Then 
txtImpact.Text = "IEQOO" & txtCounter.Text 
Else 


lf Val(txtCounter) < 1000 Then 
116 


ExXtCimpaces lexee— "LE0OO" .& txtCounter.Text 
Else 
ti Vali txeCounter) < 10000 Then 
EXE impact. Text "TEO" & txtCounter.Text 


Else 
txtImpact.Text = "IE" & txtCounter.Text 
Dijlel dine 
Ene) We 
gle wee 
End If 


datImpact .Recordset.Update 
Else 
MsgBox "You must select a Fire Event before saving." 
, vVbExclamation, "Add Impact Event" 
datImpact.Recordset.CancelUpdate 
End If 


cboFire.Enabled = False 
cbhoPlatform.Enabled = False 
cboSensor.Enabled = False 
txtImpactTime.Enabled = False 
txt BDATime.Enabled = False 
txtBDA.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datImpact.Enabled = True 
cmdAdd.SetFocus 


datImpact.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “turn OLE error trapping 


Case 3058, 3315 ‘no entry in key field 
stMess = "Select Fire Event before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On .Ersom Gole.0 ‘turn off error trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
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datImpact .Recordset .CancelUpdate 
Resume Next 
End Select 


End Sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datImpact.Recordset.RecordCount > 0 Then 


emaUpdate .Caption, =) "Sucbmit” 
cboFire.Enabled = True 
cboPlatform.Enabled = True 
cboSensor.Enabled = True 
txtImpactTime.Enabled = True 
txtBDATime.Enabled = True 
txtBDA.Enabled = True 
cmdAdd.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
datImpact.Enabled = False 
datImpact .Recordset.Edit 


Else 
If datImpact.Recordset.RecordCount > 0 Then 
datImpact.Recordset .Update 


cboFire.Enabled = False 
cboPlatform.Enabled = False 
cboSensor.Enabled = False 
txtImpactTime.Enabled = False 
txtBDATime.Enabled = False 
txtBDA.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 
cmdUpdate.Caption = "&Update" 
mnuFile.Enabled = True 
datImpact.Enabled = True 


End Lr 
Erde & 
End’ Sub 
Private Sub datImpact_Reposition() 
SetImpactRecordNumber 
End Sub 


Private Sub Form_Load() 
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datImpact.DatabaseName = gstNewDatabase 


stSQL1 = "Select Fire from Fire" 
stSQL2 = "Select Platform from Platform" 
stSQL3 = "Select SensorType from SensorType" 


Set rsFire = db.OpenRecordset (stSQL1) 
Set rsPlatform = db.OpenRecordset (stSQL2) 
Set rsSensor = db.OpenRecordset (stSQL3) 


‘filiecoerire 

Do Until rsFire.EOF 
cboFire.AddItem rsFire!Fire 
rsFire.MoveNext 

Loop 


"fii)1 CboPlattorm 

Do Until rsPlatform. EOF 
cboPlatform.AddiItem rsPlatform! Platform 
rsPlatform.MoveNext 

Loop 


‘fill cboSensor 

Do Until rsSensor.EOF 
cboSensor.AddItem rsSensor!SensorType 
rsSensor.MoveNext 

Loop 


With datImpact 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
lq (ol Bie 
End With 


SetImpactRecordNumber 
End Sub 
Private Sub SetImpactRecordNumber () 


Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datImpact.Recordset.RecordCount 
iCurrentRecord = datImpact.Recordset.AbsolutePosition + 1 


If datImpact.Recordset.EOF Then 
datImpact.Caption = "No more records" 
Else 


datImpact.Caption = “Impact Event Record " & iCurrentRecord & _ 


"of " & 1RecordCount 
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Ene) ie 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub mnuFilePrint._Click() 
£YMPrine. snow 


On Error GoTo mnuPrintErrors 
Tf bContinue = True Then 
With datImpact.Recordset 
If bword = True Then 
Set WordApp = New Word.Application 
WordApp .Documents.Add 
Set Doc = WordApp.ActiveDocument 
Set Sel = WordApp.Selection 
Doc.Tables.Add Range:=Sel.Range, NumRows:=.RecordCount, 
NumColumns :=7 
Sel.TypeText Text:="Impact" 


Sel.MoveRight unit:=12 7 -next Cell 


Sel.TypeText Text:="FireEvent" 
Sel.MoveRight unit:=12 ‘V2=nexteee! | 


Sel .TypeText Text:="ImpactTime" 
Sel .MoveRight unit:=12 i 2—=nNexeeee 1 | 


Sel.TypeText Text:="BDA" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="“BDATime" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="2latrorm 
Sel.MoveRight unit:=12 i2=next cell 
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Sel.TypeText Text:="SensorType" 
Sel .MoveRight unit:=12 TIZ=next ecei 


DO@Umti] .EOR 


Sel.TypeText Text:=!Impact 


Sel .MoveRight unit:=12 “izZ=nexc 
eel 
Sel.TypeText Text:=!FireEvent 
Sel .MoveRight unit:=12 PT 2=next 
cell 
Sel.TypeText Text:=!ImpactTime 
Sel.MoveRight unit:=12 ‘12=next 
cell 
Sel.TypeText Text:=!BDA 
Sel .MoveRight unit:=12 ‘12=next 
cell 
Sel.TypeText Text:=!BDATime 
Sel .MoveRight unit:=12 “l2=next 
cell 
Sel.TypeText Text:=!Platform 
Sel.MoveRight unit:=12 71 2=next 
cell 
Sel.TypeText Text:=!SensorType 
Sel .MoveRight unit:=12 “L2=next 
cell 
.MoveNext 
Loop 
WordApp.Visible = True 
Set WordApp = Nothing 
Else 
If bText = True Then 
Open App.Path & "\ImpactEvents.txt" For Output As 
#1 


Prane fie. Litgect emu e  hrrervent" > Chr(9); 

Minpact@rame'; Chr(o)s 2 
"BDA"; Chmeoo “BRPATime"; Chr(9); 
"Plattonnm™ Chr (9) "“SensorType"; 


Ghia (9) 
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Do Until [EOF 


Print #1, !Impact; Chr(9); 
!FireEvent; Chr(9); 
!ImpactTime; Chr(9); 
'BDA; Chr(Q) ; 
!'BDATime; Chr (9); 
!Platioum; -ehm(o). 
'SensorType; Chr(9) 


.MoveNext 
Loop 
Close #1 
End: ie 
Enda if 
.MoveFirst 
Ena) Wikia 
End If 
bContinue = False 
bWord = False 
bText = False 
mnuPrintErrors: 
Select Case Err.Number 
Case 94 
Sel.TypeText Text:="" 
Resume Next 
End Select 
End Sub 


Private Sub txtFire_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsFire.MoveFirst 
If txtFire <> "" Then 
Do Until iIndex = rsFire.RecordCount Or bFound 
If rsFire!Fire = txtFire Then 


cbooFire.Text = rsFire!Fire 
bFound = True 
Else 
rsFire.MoveNext 
bIndex =»lIindex + 1 
Ende 
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Loop 
End If 


End Sub 
Private Sub txtSensor_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsSensor.MoveFirst 
If txtSensor <> "" Then 
Do Until iIndex = rsSensor.RecordCount Or bFound 
If rsSensor!SensorType = txtSensor Then 
cboSensor.Text = rsSensor! SensorType 
bFound = True 
Else 
rsSensor.MoveNext 
1Index = iIndex + 1 
Ema If 


Loop 
End ef 


End Sub 
Private Sub txtPlatform_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsPlatform.MoveFirst 
Lf txePlatitorm <> “& Then 
Do Until iIndex = rsPlatform.RecordCount Or bFound 
Tf esPlacrormm! Plattorm = txtPlattorm Then 
cboPlatform.Text = rsPlatform! Platform 
bFound = True 


Else 
rsPlatform.MoveNext 
1Index = iIndex + 1 
Bnd cs 
Loop 
Endwile 
End Sub 


PREKKKKRKEKE KEKE KEKE KEKE KEKE KEKE KEKE KEKE KEKE KKK KEKE KEKE KEKE KEKE KKK KKK KEKE KEKE KK KKK KEKE KK KK 


‘Module: frmiInitiatives.frm 

‘Description: Allows user to access the initiatives 
: records for addition, deletion, and 

: modification. 
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e 4 
‘Programmer: Kevin Colon 
Lek ae KK KKK KKK KEKE KEK KEK KKK KEKE KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KEK 


Opeion Explicit: 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If ecmoAda. Caption = “S&Add" Then 
datInitiatives.Recordset .AddNew 
txtInitiative.Enabled = True 
txtIinitiative.SetFocus 
txtDescription.Enabled = True 
cmdAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datInitiatives.Enabled = False 


Else 
datInitiatives.Recordset.CancelUpdate 
txtInitiative.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
datInitiatives.Enabled = True 


End Lf 


CmaAdd (Gikvek Esa : 
Exit Sup 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
One eaner Golo 0 EuGh OLL ClrmOnmrErappind 


End Sub 

Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datInitiatives .Recordset .RecordcCounte > 0 Then 
i1Resp = MsgBox("Delete Initiative " & txtInitiative.Text & "?", 
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vbYesNo, "Delete Initiative") 
If iResp = vbYes Then 
With datInitiatives.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
If .EOF Then 

-.MovePrevious 


If .BOF Then 
MsgBox "The recordset is empty.", 
vbInformation, "No Records" 


Ene Lt 
End If 
elo ickele! 
Iiglel lips 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, "Delete Initiative" 
End If 


emadbDel Click Exit: 
Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 “SULT OFT CiuMwor Emap rig 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
Lf txtinitiative <> "" And “txtDescriotion <= Hhen 
txtInitiative = UCase(txtInitiative) 
iResp = MsgBox("Do you want to add " & txtInitiative & 
"to the database?", vbYesNo + vbQuestion, 
"Add Initiative") 
If iResp = vbYes Then 
datInitiatives.Recordset.Update 


Bnew he 
Else 
MsgBox "You must enter an Initiative and a description before 
saving.", vbExclamation _ 


"Add Initiative" 
datInitiatives.Recordset.CancelUpdate 
Jaye slic 


txtInitiative.Enabled = False 
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rxtDescription. Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datInitiatives.Enabled = True 
mnuFile.Enabled = True 
emdAdd.Caption = "SAdd" 
cmdAdd. SetFocus 

cmdUpdate . Enabled = {nue 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess AS String 
Select Case Err .Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vybExclamation, “Database Brcou: 
On Error GoTo 0 ‘turn OLL CEror trapping 

Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a Initiative name before Saving 2) 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘'rurn off error trapping 


Case Else 
stMess = "Record could not be saved." & eee aa 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
dat Initiatives .Recordset .CancelUpdate 
Resume Next 
Ena Select 


End Sub 


Private Sub cmdUpdate_Click () 
se cmdUpdate.Caption = "SUpdate" And _ 
datiInitiatives.Recordset .RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
txtInitiative.Enabled = True 
txtDescription.Enabled — ties. 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
txtInitiative.SetFocus 
cmdAdd.Enabled = False 
datInitiatives.Enabled = False 
datInitiatives.Recordset .Edit 

Else 
ie datInitiatives.Recordset .RecordCount > 0 Then 

datInitiatives.Recordset .Update 


txtIinitiative.Enabled = False 
txtbDescription. Enabled = False 
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enabel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 


cmdUpdate.Caption = "&Update" 
datInitiatives.Enabled = True 
End If 
End She 
End Sub 


Private Sub datInitiatives_Reposition() 
SetInitiativeRecordNumber 


End Sub 


Private Sub Form_Load() 
datInitiatives.DatabaseName = gstNewDatabase 


With datInitiatives 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
Ema If 
End With 


SetInitiativeRecordNumber 


End Sub 


Private Sub Form_Unload(Cancel As Integer) 
frmMain. Show 
frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch_Click() 


datInitiatives.Recordset.FindFirst "[Description] = ’" & _ 
InputBox("Enter the Initiative", "Initiative Search") & 


L) ae | 


If datInitiatives.Recordset.NoMatch Then 
MsgBox "Initiative was not found.", vbOKOnly, "Initiative 
Search" 
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datInitiatives.Recordset.MoveFirst “JO ,cOmrlrSe: recore 
Enea If 


End Sub 


Private Sub SetInitiativeRecordNumber () 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datInitiatives.Recordset.RecordCount 
1CurreneERecora = GatInitiatives Recordset Cesomirerosttion + f 
If datInitiatives.Recordset.EOF Then 


datInitiatives.Caption = "No more records" 
Else 
datInitiatives.Caption = "Initiative " & iCurrentRecord & _ 
"of " & 1RecordCount 
Imeuel Ihae 


End Sub 


LKR KE KKKKKKEKKEKKEKKKKKKKEKKKEKKEKKE KKK KE KKK KEKE KKK KKK KKK KKEKEKEKEKEKEKEKK KKH 


‘Module: frmLAwS. frm 

‘Description: Allows user to access the LAWS terminal 
, records for addition, deletion, and 

/ modi trcatkion. 

‘Programmer: Kevin Coldén 


Lew K KKK KKK KK KK KKK KKK KEK KEK KKK KKK KKKEKEKKKEKKEK KK KKEKAKKKKKKE KK KKK KK KKK 


Option Explain 
Dim rsPlatform As Recordset 
Dim stSQL As String 


Private Sub cboPlatform_Click() 
If cboPlatform.ListIndex >= 0 Then 
txtPlatform = cboPlatform.Text 
Ene if 
End Sub 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = “&Add" Then 
datLAWS. Recordset .AddNew 
txtTerminal.Enabled = True 
txtTerminal.SetFocus 
txtFunction.Enabled = True 
cboPlatform. Enabled = True 
cmdAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
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cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datLAWS.Enabled = False 


Else 
datLAWS .Recordset.CancelUpdate 
txtTerminal.Enabled = False 
txtFunction.Enabled = False 
cboPlatform.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "“&Add" 
cmdAdd.SetFocus 
datLAWS.Enabled = True 


Ena if 


cmdAdd_Click_Exit: 
Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On EprEor Goro 0 ‘turn Off -error trapping 


End Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datLAWS.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Terminal " & txtTerminal.Text & "?", 
vbYesNo, "Delete Terminal") 
If iResp = vbYes Then 
With datLAWS.Recordset 


.Delete ‘delete current record 
. MoveNext ‘move to following record 
LE .EOE Ihnen 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset is empty.", 
vbinformation, "No Records" 


Een t 
Isao. Bae 
End With 
Joke IL3e 
Else 
MsgBox "No records to delete.", vbExclamation _ 
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"Delete Terminal" 
Biel! it 


CmabDeleeLlicKk lL Exit: 
Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


StMso = "Cannot complete operatadon= ‘ws vbGuliieteeerLt — 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

Om Error GoTo, 0 ‘turn off erroywerapping 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
TE txtTerminal. text) <> "” Then 
txtTerminal.Text = UCase(txtTerminal.Text) 


iResp = MsgBox("Do you want to add " & txtTerminal.Text & _ 


"to the database?", vbYesNo + vbQuestion, 
"Add Terminal") 
If iResp = vbyes Then 
datLAWS.Recordset .Update 
IDigtel lite 


Else 
MsgBox "You must enter a Terminal before saving.", 
vbExclamation _ 
"Add Terminal" 
datLAWS.Recordset .CancelUpdate 
Ende Lr 


txtTerminal.Enabled = False 
txtFunction.Enabled = False 
cboPlatform.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datLAWS .Enabled True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 


cemdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
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Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
Om Error Goro 0 feul~nie OL error trapping 
Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a location before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo (0 ‘turn. GEE error trappung 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, “Database Error" 
datLAWS .Recordset.CancelUpdate 
Resume Next 
End Select 


End Sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datLAWS.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = “Su&bmit" 
txtTerminal.Enabled = True 
txtFunction.Enabled = True 
cboPlatform.Enabled = True 


cmdDel.Enabled = False 

mnuFile.Enabled = False 

txtTerminal.SetFocus 

cmdAdd.Enabled = False 

datLAWS.Enabled = False 

datLAWS.Recordset.Edit 

Else 

If datLAWS.Recordset.RecordCount > 0 Then 
txtTerminal = UCase(txtTerminal) 
datLAWS .Recordset .Update 


txtTerminal .Enabled False 
txtFunction.Enabled False 
cboPlatform.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 


cmdUpdate.Caption = "&Update" 
datLAWS.Enabled = True 
End If 
Ena EE 
End Sub 


Private Sub datLAWS_Reposition() 
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SetTerminalRecordNumber 

End Sub 

Private Sub FillPlatformCombo () 
Dim iCount As Integer 
‘fill the PlatType combo box 


cboPlatform.Clear 


With rsPlatform 
iCount = Wrkecord@eunt 


‘fill thet@iasce 
Do Until .EOF 


LE 1Phattomm <> ""s- lhen 
cboPlatform.AddItem !Platform 


End Df 
-MoveNext 
Loop 
End With 
End Sub 
Private Sub Form_Load() 


datLAWS.DatabaseName = gstNewDatabase 


stSQL = "Select Platform from Platform" 
Set rsPlatform = db.OpenRecordset (stSQL) 


FillPlatformCombo 
With datLAWS 
.Refresh 
If Not .Recordset.EOF Then 
-Recordset.MoveLast 
.Recordset.MoveFirst 
IDeiobuilss 
End With 
SetTerminalRecordNumber 
End Sub 


Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 


2 





Private Sub mnuFileBack_ Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch Click() 


datLAWS.Recordset.FindFirst "[LAWSTerminal] = ’" & 


InputBox("Enter the LAWS Terminal", "LAWS Terminal 
Search") IRs _eru 


If datLAWS.Recordset.NoMatch Then 
MsgBox "LAWS Terminal was not found.", vbOKOnly, "LAWS Terminal 
Search" 
datLAWS.Recordset.MoveFirst “Gor tO Lraest record 
End If 


End Sub 


Private Sub SetTerminalRecordNumber () 
Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


i1RecordCount = datLAWS .Recordset.RecordCount 
iCurrentRecord = datLAWS.Recordset .AbsolutePosition + 1 
If datLAWS.Recordset.EOF Then 


datLAWS.Caption = "No more records" 
Else 
datLAWS.Caption = "Terminal " & iCurrentRecord & _ 
"of " & iRecordCount 
Breet 
End soul 


Private Sub txtPlatform_Change() 


’selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsPlatform.MoveFirst 


Tf txteclatformi<>-—"" Then 
Do Until iIndex = rsPlatform.RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatform.Text = rsPlatform! Platform 
bFound = True 
Else 
rsPlatform.MoveNext 
iIndex = iIndex + 1 
EnGelt 
Loop 


N38, 


Else 


End 


End Sub 


Tweak kK KKK 


‘Module: 
‘Descrip 


, 


cboPlatform.ListIndex = -l 


ite 


KKKKKE KKK KE KEKE KEK KEKE KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK 


frmMain.frm 
(eal(olals Allows user to access the forms linked to 
the database by use of dropdown menus. 


'Programmer: Kevin Coldén 


laekkekkkexk 


Option E 


Dim 
Dat 
Dim 
Dim 
Dim 
1Bjaty qa 
iDpat qa 
Dim 
IO )uyaa 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 
bam 
Dim 
Dam 
Dim 
Dim 
Dim 
Dim 
Dim 
Dim 


Private 


KKK KEKE KEKE KKK KEKE KKK KKK KEKE KEK KK KKK KKK KK KKK KKK KE KKK KKK KEKE EK 
roa leikeslic 


rsAcquisition As Recordset 
rsFire As Recordset 
rsFireCommand As Recordset 
rsImpact As Recordset 
rsMensuration As Recordset 
rsNomination As Recordset 
rsTarget As Recordset 
rsLAWSdata As Recordset 
rsGISRS As Recordset 
rsLAWS As Recordset 
rsPlatform As Recordset 
rsSensor As Recordset 
rsThreat As Recordset 
rsWeapon As Recordset 
stSQLi As String 

stSQL2 As String 

stSQL3 As String 

stSQOL4 As String 

StSQOL5 As String 

stSQL6 As String 

stSQL7 As String 

stSQL8 As String 

stSQL9 As String 

stSQL10 As String 

stSQL11 As String 

stSQLi2 As String 

stSQL13 As String 

stSQLi4 As String 
stSearch As String 
stMessage As String 
bGFound As Boolean 
bLFound As Boolean 


Sub AddAcquisition() 
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rsAcquisition.AddNew 
Lt SsAceuisition! AcquisitionCounter < 10 Then 


GSACGua Sabon !ACGm@asition = "AEQ000" & 
rsAcquisition!AcquisitionCounter 


Else 
If rsAcquisition!AcquisitionCounter < 100 Then 


rsAcquisition!Acquisition = "AEQ000" & 
rsAcquisition!AcquisitionCounter 


Else 
If rsAcquisition!AcquisitionCounter < 1000 Then 


rsAcquisition!Acquisition = "AE00" & 
rsAcquisition!AcquisitionCounter 


Else 
If rsAcquisition!AcquisitionCounter < 10000 Then 


rsAcquisition!Acquisition = "AE0O" & 
rsAcquisition!AcquisitionCounter 


Else 
rsAcquisition!Acquisition = "AE" & 
rsAcquisition!AcquisitionCounter 


Enews 
ldigts; las 
EEG eit 
Dele iki 


rsAcquisition!TrackId = rsLAWSdata!TrackId 
rsAcquisition!ThreatType = rsLAWSdata!ThreatType 


‘get string from LAWS data and use it for platform search to 
‘fill platform field in Acquisition table from LAWSdata info 
If rsLAWSdata!Nominator <> "" Then 


stSearch = rsLAWSdata!Nominator 


rsGISRS.MoveFirst 
rsLAWS.MoveFirst 
bGFound = False 
bLFound = False 


‘checks GISRS table 
Do Until w&ssGISRS.EOF Or bGFound = True 
If rsGISRS!GISRSTerminal = stSearch Then 


bGFound = True 
135 


rsAcquisition!AcgPlatform = rsGISRS!Location 


Else 
rsGISRS .MoveNext 


Be it 
Loop 


‘checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 


Do Until rsLAWS.EOF Or bLFound = True 
If rsLAwS!LAWSTerminal = stSearch Then 


bLFound = True 
rsAcquisition!AcqPlatform = rsLAWS!Location 


Else 
rsLAWS.MoveNext 


aye (e elise 
Loop 
Ea Glee 
Bnd If 


rsAcquisition! TrackLocation = rsLAWSdata!TargetLocation 
rsAcquisition!TrackAltitude = rsLAWSdata!Altitude 
rsAcquisition!Remark = rsLAWSdata!ThreatDescription 


rsAcquisition!AcqSensorType = rsLAWSdata!AcqSensor 


If rsLAWSdata!AcqSensor = Null Then 


rsAcquisition!AcqSensorType "None" 
Else 


rsAcquisition! AcqSensorType 


rsLAWSdata!AcqSensor 

ENG. 

If rsLAWSdata!AcqTime <> Null Or rsLAWSdata!AcqTime <> "" Then 
rsAcquisition!AcqTime = rsLAWSdata!AcqTime 

EBma If 


rsAcquisition.Update 


End Sub 


Private Sub AddFire() 
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rsFireCommand.MoveLast 
If rsLAWSdata!RoundsFired <> "" And rsLAWSdata!RoundsFired > 0 Then 
rsFire.AddNew 
If rsFire!FireCounter < 10 Then 
rsFire!Fire = "FEQOQ0O0" & rsFire!FireCounter 


Else 
If rsFire!FireCounter < 100 Then 


rsFire!Fire = "FEQOQO" & rsFire!FireCounter 


Else 
If rsFire!FireCounter < 1000 Then 


rsFire!Fire = "FEOQO" & rsFire!FireCounter 


Else 
If rsFire!FireCounter < 10000 Then 


rsFire!Fire = "FEO" & rsFire!FireCounter 
Else 
rsFire!Fire = "FE" & rsFire!FireCounter 
Ee Lt 
Ena ft 
iXelel makes 


ietol sins 


rsFire!FireCommand rsFireCommand! FireCommand 
rsFire!RoundsFired rsLAWSdata! RoundsFired 
rsFire!FireTime = rsLAWSdata!FireEventTime 


rsFire.Update 
AddImpact 


inetele shee 


Bna Sub 

Private Sub AddFireCommand () 
Dim bPFound As Boolean 
rsTarget .MoveLast 


rsFireCommand.AddNew 


137 


If rsFireCommand!FireCommandCounter < 10 Then 


rsFireCommand! FireCommand = "FCO000" & 
rsFireCommand! FireCommandCounter 


Else 
If rsFireCommand!FireCommandCounter < 100 Then 


rsFireCommand!FireCommand = "FC0O00" & 
rsFireCommand! FireCommandCounter 


Else 
T&é rsFireCommand!FireCommandCounter < 1000 Then 


rsFireCommand!FireCommand = "FCO00O" & 
rsFireCommand!FireCommandCounter 


Else 
If rsFireCommand!FireCommandCounter < 10000 Then 


rsFireCommand!FireCommand = "FCO" & 
rsFireCommand!FireCommandCounter 


Else 
rsFireCommand!FireCommand = "FC" & 
rsFireCommand! FireCommandCounter 


End If 
End, Ie 


End If 
End If 


rsFireCommand!Nomination = rsTarget !Nomination 
rsFireCommand!OCCCId = rsLAWSdata!TargetControl 
rsFireCommand!TargetId = rsTarget!TargetIid 
stSearch = rsLAWSdata!FirerPlatform 


rsPlatform.MoveFirst 


Do Until rsPlatform.EOF Or bPFound = True 
If rsPlatform!LAWSFormat = stSearch Then 


bPFound = True 
rsFireCommand!FirerPlatform = rsPlatform! Platform 


Else 
rsPlatform.MoveNext 


Ena. le 
Loop 


If bPFound = False Then 
rsFireCommand!FirerPlatform = rsLAWSdata!FirerPlatform & "-TAC" 
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End I£ 


If rsLAWSdata!RoundsFired > 0 Then 
rsFireCommand! Engage = True 


Ena Tf 


rsFireCommand.Update 


End Sub 
Private Sub AddImpact () 
rsFire.MoveLast 
rsImpact .AddNew 
If rsImpact!ImpactCounter < 10 Then 
rsImpact! Impact = "IEQQOO" & rsImpact! ImpactCounter 


Else 
If rsImpact!ImpactCounter < 100 Then 


rsImpact!Impact = "IEQOO" & rsImpact! ImpactCounter 


Else 
If rsImpact!ImpactCounter < 1000 Then 


rsImpact!Impact = "IEOO" & rsImpact! ImpactCounter 


Else 
If rsImpact!ImpactCounter < 10000 Then 


rsImpact!Impact = "IEO" & rsImpact! ImpactCounter 
Else 
rsimpact! Impact = "IE" @@& rsiImpaet ! ImpactCounter 
End Lf 
lakes Ilse 
Pma- LE 


End If 


rsiImpact!FireEvent = rsFire!Fire 
rsiImpact!ImpactTime = rsLAWSdata! ImpactTime 


rsImpact .Update 


End Sub 
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Private Sub AddMensuration() 
rsAcquisition.MoveLast 
rsMensuration.AddNew 
If rsMensuration!MensurationCounter < 10 Then 


rsMensuration!Mensuration = "MEO000" & 
rsMensuration!MensurationCounter 


Else 
If rsMensuration! MensurationCounter < 100 Then 


rsMensuration!Mensuration = "ME000" & 
rsMensuration!MensurationCounter 


Else 
If rsMensuration!MensurationCounter < 1000 Then 


rsMensuration!Mensuration = "MEOO" & 
rsMensuration!MensurationCounter 


Else 
If rsMensuration!MensurationCounter < 10000 Then 


rsMensuration!Mensuration = "MEO" & 
rsMensuration!MensurationCounter 


Else 
rsMensuration!Mensuration = "ME" & 
rsMensuration!MensurationCounter 


Bna Tt 
evoly 26 3G 
GBhea If 
Pnasle 


rsMensuration!Acquisition = rsAcquisition!Acquisition 
: rsMensuration!MenSensorType = ? 
; rsMensuration!MenPlatform = ? 


stSearch = rsLAWSdata!Nominator 


rsGISRS.MoveFirst 
rsLAWS.MoveFirst 
bGFound = False 
bLFound = False 


‘checks GISRS table 
Do Until rsGISRS.EOF Or bGFound = True 
If rsGISRS!GISRSTerminal = stSearch Then 
bGFound = True 
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rsMensuration!GISRSTerminal = rsGISRS!GiISRSTerminal 


Else 
rsGISRS .MoveNext 


Met! le 
Loop 


‘checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 


Do Until rsLAWS.EOF Or bLFound = True 
Tf xrsLAWS!LAWSTerminal = stSearch Then 


bLFound = True 
rsMensuration!GISRSTerminal = rsLAWS!LAWSTerminal 


Else 
YSLAWS .MoveNext 


BmiGiuek £ 
Loop 
Bnd if 


rsMensuration.Update 


End Sub 

Private Sub AddNomination () 
rsMensuration.MoveLast 
rsNomination.AddNew 
If rsNomination!NominationCounter < 10 Then 


rsNomination!Nomination = "NEOOQOO" & 
rsNomination!NominationCounter 


Else 
Tf rsNomination!NominationCounter < 100 Then 


rsNomination!Nomination = "NEOOO" & 
rsNomination!NominationCounter 


Else 
If rsNomination! NominationCounter < 1000 Then 


rsNomination!Nomination = "NEQO" & 
rsNomination!NominationCounter 


Else 
If rsNomination!NominationCounter < 10000 Then 


14] 


rsNomination!Nomination = "NEO" & 
rsNomination!NominationCounter 


Else 
rsNomination!Nomination 
rsNomination !NominationCounter 


tt NE " & 


pm If 
Ene it 
Bnd it 
End TE 


rsNomination!Acquisition rsMensuration!Acquisition 
rsNomination!Mensuration = rsMensuration!Mensuration 


stSearch = rsLAWSdata!Nominator 


rsGISRS.MoveFirst 
YsLAWS .MoveFirst 


bGFound = False 
bLFound False 


‘checks GISRS table 
Do Until rsGISRS.EOF Or bGFound = True 
If rsGISRS'GISRSTerminal = stSearch Then 


bGFound = True 
rsNomination!GISRSTerminal = rsGISRS!GISRSTerminal 


Else 
rsGISRS .MoveNext 


End eit 
Loop 


‘checks LAWS table if search not successful in GISRS table 
If bGFound = False Then 


Do Until rsLAWS.EOF Or bLFound = True 
If rsLAWS!LAWSTerminal = stSearch Then 


bLFound = True 
rsNomination!GISRSTerminal = rsLAWS!LAWSTerminal 


Else 
YSLAWS .MoveNext 


End If 
Loop 
End If 


rsNomination!TargetLocationError = rsLAWSdata!TLE 


142 


rsNomination. Update 


End Sub 

Private Sub AddTarget () 
On Error GoTo HandleTargetError 
rsNomination.MoveLast 


rsTarget .AddNew 

rsTarget !Targetid = rsLAWSdata!Targetid 
rsTarget!TargetNLTTime = rsLAWSdata!NLTTime 

rsTarget !WeaponType = rsLAWSdata ! WeaponType 

rsTarget !TargetLocation = rsLAWSdata!TargetLocationz2. 
rsTarget!Description = rsLAWSdata!TargetType 
rsTarget!Remark = rsLAWSdata ! Remark 
rsTarget!Nomination = rsNomination!Nomination 


rsTarget .Update 
AddTarget_Exit: 

Exit Sub 
HandleTargetError: 


Select Case Err.Number 
Case 3022 
stMessage = "Targetid repeated. Target " & 
rsLAWSdata!Targetid _ 
& vbCrLf & " not saved as new record." 

MsgBox stMessage, vbOKOnly + vbinformation 
rsTarget .CancelUpdate 

End Select 

Resume 


End Sub 


Private Sub mnuDataSort_Click() 


Dim rsSorted As Recordset 
Dim stPrevThreat Feast ring 
Dim stPrevTrack Rersteing 
Dim stPrevNominator As String 
Dim stNowThreat As String 
Dim stNowTrack As String 
Dim stNowNominator As Sering 
Dim stNextThreat As String 
Dim stNextTrack hs StEring 
Dim stNextNominator As String 
Dim stSQL1l As String 
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Dim stSQL2 As String 


"Select * from LAWSSorted" 


Set rsSorted = db.OpenRecordset (stSQL1) 


With rsSorted 
DO Until SeEOr 


stNowThreat = !ThreatDescription 

Ti !'Trackid <> "" Or tTrackid <> Null mhenm 
stNowTrack = !TrackId 

Else 
stNowlrack wan. 

End it 

If !Nominator <=" "Or ‘Nominator <> Null Then 
stNowNominator = !Nominator 

Else 
stNowNominator = "" 

End If 

Lf stNowlrack = "" Or stNowNominator = "”" Then 
.MovePrevious 


If Not .BOF Then 


stPrevThreat = !ThreatDescription 
stPrevTrack = !TrackId 
stPrevNominator = !Nominator 


If stPrevThreat = stNowThreat Then 


.MoveNext 

Site bys 

(TrackId = stPrevTrack 

!'Nominator = stPrevNominator 

.Update 

Else 

.MoveNext 

-MoveNext 

stNextThreat = !ThreatDescription 

stNextTrack = !TrackId 

stNextNominator = !Nominator 

If stNextThreat = stNowThreat Then 
. MovePrevious 
~EGalt 
'TrackId = stNextTrack 
'Nominator = stNextNominator 
- Update 

End If£ 
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End If 


Else 
.MoveNext 
.MoveNext 
stNextThreat = !ThreatDescription 
stNextTrack = !TrackId 
stNextNominator = !Nominator 
.MovePrevious 
If stNextThreat = stNowThreat Then 
Shea t 
'TrackId = stNextTrack 
!'Nominator = stNextNominator 
. Update 
En@e it 
Bre t 
Baa LE 
. MoveNext 
Loop 
End With 


End Sub 


Private Sub mnuDataTransfer Click() 
Dim rsLAWSInfo As Recordset 


Dim rsSorted As Recordset 

Dim stLAWSInfo As String 

Dim stSorted As String 

Dimese -or As String 

SCLAWSInfo = "Select * from LAWS" 
stSorted = "Select * from LAWSSorted" 


Set rsLAWSInfo = db.OpenRecordset (stLAWSInfo) 
Set rsSorted = db.OpenRecordset (stSorted) 


With rsLAWSInfo 
DO Untul 2EOF 
rsSorted.AddNew 
rsSorted!TargetId = !TargetId 
rsSorted!ThreatDescription = !ThreatDescription 
rsSorted!TargetLocation = !TargetLocation 
rsSorted!NLTTime = !NLTTime 
rsSorted!Altitude = !Altitude 
rsSorted!WeaponType = !WeaponType 
rsSorted!PlatLocation = !PlatLocation 
rsSorted!ThreatType = !ThreatType 
If !Remarkl <> "" Then 
StTLE = Left (rsLAWSInfo!Remarkl, 2) 
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End If 


Tt Steee— "CE" Then 

rsSorted!TLE = !'Remarkli 
Else 

rsSorted! Remark = !Remarkl 
End If 
rsSorted!AcqTime = !AcqTime 
rsSorted!Acqsensor = !\AcgqSensor 
rsSorted!TargetLocationz = !TargetLocation2 
rsSorted!TargetType = I'TargetType 
rsSorted! RoundsFired = !RoundsFired 
rsSorted!FirerPlatform = !FirerPlatform 
rsSorted! TargetControl = !TargetControl 
rsSorted!Priority = iPrioneicy. 
rsSorted!ImpactTime = !ImpactTime 
rsSorted!Nominator = !Nominator 
Tf !Remark2 <> oe Then 

sctTLeE. = Left (rsLAWSInfo!Remark2, 2) 
jpgtc! 128 
Tf stTLE = "SH" Then 

rsSorted! Remark = !Remark2 
Else 

rsSorted!Trackid = !Remark2 
Ena If 
rsSorted! FireEventTime = !FireEventTime 


rsSorted.Update 
rsLAWSInfo.MoveNext 


LOOp 


End With 


End Sub 
Private Sub nib Pebocd tele ms) 


‘terminates application 
End 


End Sub 


Private Sub muri le@pen. Cilicia 
‘Select a different database (FBE) 


On Error GoTo HanadLebrror 
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With frmMain.dlgDatabase 
.FileName = gstNewDatabase 
Pelee — WEaedbacemetleom(*.mdb)|*.mdb|All files (*.*)|*.*" 


‘if error encountered, skip next command 
On Error Resume Next 


. ShowOpen 

Tf Err.Number = cdlCancel Then 
gstNewDatabase = "" 

Else 


‘set return filename to selected file 


gstNewDatabase = .FileName 
frmMain.Caption = .FileTitle & " Database" 
Endeit 
End With 


Set db = OpenDatabase(gstNewDatabase) 


‘display Main form 
frmMain. Show 


Sub EX1t: 
Exit Sub 


HandleError: 


Select Case Err.Number 
Case 3004, 3024, 3044 


If gstNewDatabase = "" Then 
MsgBox "No database was selected.", vbExclamation, 


“Database Error" 


‘disables options only available when a database is 


selected 
Me.mnuFileQueries.Enabled = False 
Me .mnuFileSQOL.Enabled = False 
Me .mnuUpdate.Enabled = False 
Else 
Set db = OpenDatabase (gstNewDatabase) ‘new database 
iocat1 On 


‘reenables options once a database is selected 
Me .mnuFileQueries.Enabled = True 

Me .mnuFileSQL.Enabled = True 

Me .mnuUpdate.Enabled = True 

Resume ‘open the database 


End If 


Case Else 
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MsgBox Err.Description, vbOKOnly + vbExclamation, 
"Unexpected Error" 


End ‘exit the project 
End Select 
End Sub 
Private Sub mnuFileQueries_Click() 
frmQueries .Show 
Me.Enabled = False 
End Sub 


Private Sub mnuFileSQL_Click() 


frmSQL. Show 
Me.Enabled = False 


Ena. sub 

Private Sub mnuHelpAbout_Click() 
frmAbout . Show 

End Sub 


Private Sub mnuPopulate_Click() 


stSQL1 = "Select * from Acquisition" 
StSQL2 = "Select * from Fire" 

StSQL3 = "Select * from FireCommand" 
stSQL4 = "Select * from Impact" 

StSQL5 = "Select * from Mensuration" 
StSQL6 = "Select * from Nomination" 
StSQL7 = "Select * from Target" 

StSQL8 = "Select * from LawsSorted2" 
StSOL9 = "Select * from GISRSTerminal" 
StSQL10 = "Select * from LAWSTerminal" 
StSQL11 = "Select * from Platform" 
StSQL12 = "Select * from SensorType" 
StSQL13 = "Select * from ThreatType" 
StSQL14 = "Select * from WeaponType" 


Set rsAcquisition = db.OpenRecordset(stSQL1) 
Set rsFire = db.OpenRecordset (stSQL2) 

Set rsFireCommand = db.OpenRecordset (stSQL3) 
Set rsImpact = db.OpenRecordset (stSQL4) 

Set rsMensSsuration = db.OpenRecordset (stSQL5) 
Set rsNomination = db.OpenRecordset (stSQL6) 
Set rsTarget = db.OpenRecordset (stSQL7) 

Set rsLAWSdata = db.OpenRecordset (stSQL8) 
Set rsGISRS = db.OpenRecordset (stSQL9) 

Set rsLAWS = db.OpenRecordset (stSQL10) 
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Set rsPlatform = db.OpenRecordset (stSQL11) 
Set rsSensor db.OpenRecordset (stSQL12) 
Set rsThreat db.OpenRecordset (stSQL13) 
Set rsWeapon = db.OpenRecordset (stSQL14) 


If rsLAWSdata.RecordCount > 0 Then 
Do Until rsLAWSdata.EOF paix EO 2kOr 
If rsAcquisition.RecordCount = 0 Then 


AddAcquisition 
AddMensuration 
AddNomination 
AddTarget 
AddFireCommand 
AddFire 
rsLAWSdata.MoveNext 


Else 
rsAcquisition.MoveLast 
If rsAcquisition! TrackId <> rsLAWSdata!TrackId Then 


AddAcquisition 
AddMensuration 
AddNomination 
AddTarget 
AddFireCommand 
AddFire 
rsLAWwSdata.MoveNext 


Else 


AddTarget 
AddFireCommand 
AddFire 
rsLAWSdata.MoveNext 


Bae tf 
BPG awl i 
Loop 
Else 
stMessage = "No data to import from table: LawsSorted " & 
iG fn = 
& " in database: " & 


Me.dlgDatabase.FileTitle 
MsgBox stMessage, vbOKOnly + vbExclamation, "Data Population" 
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End If 
End Sub 
Private Sub mnuUpdateAcquisition_Click() 


frmAcgEvents . Show 
Me. Enabled = False 


End Sub 
Private Sub mnuUpdateAcronyms_Click() 


frmAcronyms . Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateDataTypes_Click() 


frmDataTypes - Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateFBE_Click() 


frmFBE. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateFire_Click() 


frmFireEvent .Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateFireCommand_Click() 


frmFireCmdEvent .Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateGISRS_Click() 


frmGISRS.Show 
Me.Enabled = False 


End Sub 
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Private Sub mnuUpdateImpact_Click() 


frmimpactEvent. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdatelInitiatives_Click() 


frminitiatives.Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateLAWS_Click() 


frmLAWws .Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateMensuration_Click() 


frmMenEvents. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateNomination_Click() 


frmNomEvents. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateObjectives_Click() 


frmObjectives.Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdatePlatforms_Click() 


frmPlatforms. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdatePlatTypes_Click() 


frmPlatformTypes. Show 
Me.Enabled = False 


End Sub 
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Private Sub mnuUpdateQuestions_Click() 


frmQuestions. Show 
Me.Enabled = False 


Bna Sup 
Private Sub mnuUpdateSensTypes_Click() 


frmSensorTypes. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateTargets_Click() 


frmTargetEvents. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuUpdateThreatTypes_Click() 


ErmThreatTypes. Show 
Me.Enabled = False 


Ema Sub 
Private Sub mnuUpdateWeaponTypes_Click() 


frmWeaponTypes. Show 
Me.Enabled = False 


End Sub 
Private Sub mnuViewTargets_Click() 


frmTargets2.Show 
Me.Enabled = False 


End Sub 


PREKK KKK KEE KEK KKK KEK KEKE KKK KKK KKK KK KKK KKK KEKE KK KKK KEKE KKK KKK KK KKK 


‘Module: frmMenEvents.frm 

‘Description: Allows user to access the mensuration event 
: records for addition, deletion, and 

: modification. 

‘Programmer : Kevin Colon 


Pw we ae Kw KKK KKK KKK KEK KKK KKK KEK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK 


Opmren Explicit 


ez 





Dim rsheqiisition As Recordset 


Dim rsSensor As Recordset 

Dim rsPlatform As Recordset 

Dim rsGISRS As Recordset 

Dim rsPTW As Recordset 

Dim stSQL1 As String 

Dim stSQL2 As String 

Dim stSQL3 As String 

Dim stSQL4 As String 

Dim stSQL5 As String 

Private WordApp As Word.Application 
Private Doc As Word.Document 
Private Sel As Word.Selection 


Private Sub cbhoAcquisition_Click() 
if \eCboAcoguUISiI elon Lustindex >= 0 Then 
txtAcquisition = cboAcquisition.Text 
End If 
End Sub 
Private Sub cboGISRS Click() 
If cboGISRS.Listindex >= 0 Then 
txtGISRS = cboGISRS.Text 
Ena if 
End Sub 
Private Sub cboPlatform_Click() 
T£ cbhoPlatform.ListiIndex >= 0 Then 
txtPlatform = cboPlatform.Text 
End If 
End Sub 
Private Sub cboPTW_Click() 
T£ cboPTW.Listindex >= 0 Then 
txtPTW = cboPTW.Text 
EnGe it 
End Sub 
Private Sub cboSensor_Click() 
T£ cboSensor.Listindex >= 0 Then 
txtSensor = cboSensor.Text 


End LE 


End Sub 


153 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 
If cmdAdd.Caption = "&Add Event" Then 


GatMenEvents.Recordset .AddNew 
cboAcquisition.Enabled = True 
cboPlatform.Enabled = True 
cboSensor.Enabled = True 
cboGISRS.Enabled = True 
cboPTW.Enabled = True 
cboAcquisition.ListIndex = -1l 
cboPlatform.ListIndex = -l 
cboSensor.ListIndex = -1l 
cboGISRS.ListIndex = -1 
cboPTW.ListIndex = -1 
txtTimeRqstSent.Enabled = True 
txtTimeRqstRcvd.Enabled = True 
txtTimeInfoSent.Enabled = True 
txtTimeInfoRcvd.Enabled = True 
cmaUpdate.Enabled = False 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdAdd.Caption = "&Cancel" 
mnuFile.Enabled = False 
datMenEvents.Enabled = False 


Else 


GatMenEvents.Recordset .CancelUpdate 
cboAcquisition.Enabled = False 
cboPlatform.Enabled = False 
cboSensor.Enabled = False 
cboGISRS.Enabled = False 
cboPTW.Enabled = False 
txtTimeRqstSent.Enabled = False 
txtTimeRgqstRcvd. Enabled False 
txtTimeInfoSent.Enabled False 
txtTimeInfoRcvd.Enabled = False 
cmaUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datMenEvents.Enabled = True 
cmdAdd.SetFocus 


Baal 


cmdAdd_Click_Exit: 
Bx eesub 


HandleAddErrors: 
Dim stMess As String 
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StMesou—— -Camnot Complete Operation. " & vbCrLf & vbCrLet & 
Err .Description 

MsgBox stMess, vbExclamation, "Database Error" 

On ErroreGero 0 ‘Curmm@erE error trapping 


End Sub 
Private Sub cmdDel_Click() 
Dim iResp As Integer 
On Error GoTo HandleDelErrors 


If datMenEvents.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Event " & txtMensuration & "?", vbYesNo, 


"Delete Event") 
If iResp = vbYes Then 
With datMenEvents.Recordset 

.Delete 

.MoveNext 

lfe.EOF Then 
.MovePrevious 
If .BOF Then 

MsgBox "The recordset is empty.", 
vbInformation, "No Records" 


Ene Lt 
EnG If 
End With 
End If 
Else 
MsgBox "No records to delete.", vbExclamation, "Delete Event" 
End it 
cmdDel_Click_Event: 
Exit eo 
HandleDelErrors: 
Dim stMess As String 
stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 


Err .Description 
MsgBox stMess, vbExclamation, "Database Error" 


On Error Goto 70 
End Sub 
Private Sub cmdSave_Click() 


‘save current record 
On Error GoTo HandleSaveErrors 
If cbhoAcquisition.ListIndex >= 0 And cboGISRS.ListIndex >= 0 Then 
If Val(txtCounter) < 10 Then 
txtMensuration.Text = "MEOO00" & txtCounter.Text 


ee) 


Else 
he Val (extcCounter) =< 100s then 


txtMensuration.Text = "MEO00" & txtCounter.Text 
Else 
ff Val (txeCounter )w- 2 000: then 
txtMensuration.Text = "MEOO" & txtCounter.Text 
Else 
If Val(txtCounter) < 10000 Then 
txtMensuration.Text = "MEO" & txtCounter.Text 
Else 
txtMensuration.Text = "ME" & txtCounter.Text 
End if 
Bnew ke 
Enda 


End If 


datMenEvents.Recordset.Update 
Else 
MsgBox "You must select an Acquisition Event and a GISRS 
Terminal before saving." _ 
, VbExclamation, “Add Mensuration Event" 
datMenEvents.Recordset.CancelUpdate 
End 25 


cbhoAcquisition.Enabled = False 
cboPlatform.Enabled = False 
cboSensor.Enabled = False 
cboGISRS.Enabled = False 
cboPTW.Enabled = False 


txtTimeRgqstSent.Enabled = False 
txtTimeRqstRcvd.Enabled = False 
txtTimeInfoSent.Enabled = False 


txtTimeInfoRcvd.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datMenEvents.Enabled = True 
cmdAdd. SetFocus 


datMenEvents.Enabled = True 


cmdSavem@ lasek Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists --~ could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
Onebrrer Goer) ‘cumm off erre® trapping 
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Case 3058, 3315 
stMess = 
before saving." 
MsgBox stMess, 
On Error GoTo 0 


Case Else 
stMess = 


vVbExclamation, 


"Record could not be saved." 


‘no entry in key field 
"Select Acquisition Event and GISRS Terminal 


"Database Error" 
fPelun Off error Crapping 


Savoerir 


& Bri Veseription 


MsgBox stMess, 


vVbExclamation, 


"Database Error" 


datMenEvents .Recordset .CancelUpdate 


Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datMenEvents.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Suébmit" 
cbhoAcquisition.Enabled True 
cboPlatform.Enabled = True 
cboSensor.Enabled = True 
cboGISRS.Enabled = True 
cboPTW.Enabled = True 
txtTimeRqstSent.Enabled = True 
txtTimeRgstRcvd.Enabled = True 
txtTimeInfoSent.Enabled = True 
txtTimeInfoRcvd.Enabled = True 
cmdAdd.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
datMenEvents.Enabled = False 


datMenEvents.Recordset.Edit 


Else 


Tf datMenEvents.Recordset.RecordCount > O Then 
datMenEvents.Recordset .Update 


cboAcquisition.Enabled = False 
cboPlatform.Enabled = False 
cboSensor.Enabled = False 
cboGISRS.Enabled = False 
cboPTW.Enabled = False 
txtTimeRgstSent.Enabled = False 
txtTimeRgstRcvd.Enabled = False 
txtTimeiInfoSent.Enabled = False 
txtTimeInfoRcvd.Enabled = False 


cemdDel .Enabled 
cmdAdd. Enabled 


True 
True 


| ay 


cmdAdd.SetFocus 
cmdUpdate.Caption = "&Update" 
mnuFile.Enabled = True 
datMenEvents.Enabled = True 


End If 
Ena FE 
End Sub 
Private Sub datMenEvents_Reposition () 


SetMenEventsRecordNumber 


End Sub 
Private Sub Form_Load() 


datMenEvents.DatabaseName = gstNewDatabase 


SstSQL1 = "Select Acquisition from Acquisition" 
StSQL2 = "Select SensorType from SensorType" 
stSQL3 = "Select Platform from Platform" 

stSQL4 = "Select GISRSTerminal from GISRSTerminal" 
StSQL5 = "Select PTWTerminal from PTWTerminal" 


Set rsAcquisition = db.OpenRecordset (stSQL1) 
Set rsSensor = db.OpenRecordset (stSQL2) 

Set rsPlatform = db.OpenRecordset (stSQL3) 
Set rsGISRS = db.OpenRecordset (stSQL4) 

Set rsPTW = db.OpenRecordset (stSQL5) 


‘fill cboAcquisition 
Do Until rsAcquisition.EOF 


cboAcquisition.AddItem rsAcquisition!Acquisition 


rsAcquisition.MoveNext 
Loop 


‘fill cboSensor 

Do Until rsSensor.EOF 
cboSensor.AddItem rsSensor!SensorType 
rsSensor .MoveNext 

Loop 


‘fill cboPlatform 

Do Until rsPlatform.EOF 
cboPlatform.AddItem rsPlatform! Platform 
rsPlatform.MoveNext 

Loop 


‘fill cboGrsre 
Do Until rsGISRS.EOF 
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cboGISRS .AddItem rsGISRS!GISRSTerminal 
rsGISRS .MoveNext 
Loop 


“fill “eborrlw 

Do Until rsPTW.EOF 
cboPTW.AddiItem rsPTW! PTWTerminal 
rsPTW.MoveNext 

Loop 


With datMenEvents 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
evel lhae 
End With 


SetMenEventsRecordNumber 


End Sub 
Private Sub SetMenEventsRecordNumber () 


Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


i1RecordCount = datMenEvents.Recordset.RecordCount 
iCurrentRecord = datMenEvents.Recordset .AbsolutePosition + 1 


If datMenEvents.Recordset.EOF Then 
datMenEvents.Caption = "No more records" 
Else 
datMenEvents.Caption 
i1CurrentRecord & _ 


"Mensuration Event Record " & 


" of " & iRecordGeunt 
End If 


End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
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Private Sub mnuFilePrint_Click() 
frmPrint .Show 


On Error GoTo mnuPrintErrors 
If bContinue = True Then 
With datMenEvents.Recordset 
If bWord = True Then 
Set WordApp = New Word.Application 
WordApp.Documents.Add 
Set Doc = WordApp.ActiveDocument 
Set Sel = WordApp.Selection 
Doc .Tables.Add Range:=Sel.Range, NumRows:=.RecordCount, 
NumColumns :=10 

Sel.TypeText Text:="Mensuration" 


Sel.MoveRight unit:=12 ‘1V2=nexescell 


Sel.TypeText Text:="Request Sent" 
Sel.MoveRight unit:=12 ’12=next cell 


Sel.TypeText Text:="Request Rcvd" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Info Sent" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Info Received" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Acquisition" 
Sel.MoveRight unit:=12 SE 2=nexeace! | 


Sel.TypeText Text:="Sensor Type" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Platform" 
Sel .MoveRight unit:=12 /b2 Nest ace! 


Sel.TypeText Text:="GISRS" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="PTw" 
Sel.MoveRight unit:=12 *Ii2=next cell 


Do Until .EOF 


Sel.TypeText Text:=!Mensuration 
Sel.MoveRight unit:=12 ‘12=next 
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cell 


Sel.TypeText Text:=!TimeRequestSent 


Sel .MoveRight unit:=12 ‘12=next 
cell 

Sel.TypeText Text:=!TimeRequestReceived 

Sel .MoveRfight unit:=12 fl =Nexce 
cell 

Sel .TypeText Text:=!TimeInfoSent 

Sel.MoveRight unit:=12 V2=next 
cell 

Sel.TypeText Text:=!TimeInfoReceived 

' Sel.MoveRight unit:=12 ’12=next 

cell 

Sel .TypeText Text:=!Acquisition 

Sel .MoveRight unit:=12 liz =nexce 
Cela 

Sel.TypeText Text:=!MenSensorType 

Sel.MoveRight unit:=12 ‘i2=next 
eel 

Sel.TypeText Text:=!MenPlatform 

Sel .MoveRight unit:=12 ’12=next 
cell 

Sel.TypeText Text:=!GISRSTerminal 

Sel .MoveRight unit:=12 ’12=next 
cell 

Sel .TypeText Text:=!PTWTerminal 

Sel.MoveRight unit:=12 ‘12=next 
cell 

.MoveNext 

Loop 


WordApp.Visible = True 
Set WordApp = Nothing 
Else 
If bText = True Then 
Open App.Path & "\MenEvents.txt" For Output As #1 
Print #1, “Mensuration"; Chr(9); “Request Sent"; 


Gamo) Request Revd"; Chr(9); 
fInto.Sene"> Cari 9)> “IntesReva-- 
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Che (9) - 


"Acquisition"; Chr(9); “Sensor Type"; 


Che? its _. 
'Plat form’ = Chart); “GISRS": Chrt9)- 
"“PpTw": Chr(9} 
DemUntr. . EOF 
Print #1, !Mensuration; Chr(9); _ 
!'TimeRequestSent; Chr(9); _ 
!'TimeRequestReceived; Chr(9); 
'TimeInfoSent; Chr(9); 
'TimeInfoReceived; Chr(9); 
!AcqSensorType; Chr(9); 
i\Acqu@ismenten; Chr(9); _ 
!MenSensorType; Chr(9); 
'MenPlatform; Chr(9); 
'GISRSTerminal; Chr(9); 
'PTWTerminal; Chr(9) 
. MoveNext 
Loop 
Close #1 
End Tf 
Devel ike 
.MoveFirst 
End With 
End Lt 
bContinue = False 
bWord = False 
bText = False 
mnuPrintErrors: 
Select Case Err.Number 
Case 94 


Sel.TypeText Text:="" 
Resume Next 
End Select 


End Sub 

Private Sub txtAcquisition_Change () 
‘selects correct combo box listing 
Dim iIndex As Integer 


Dim bFound As Boolean 


rsAcquisition.MoveFirst 
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Lae ceCitcmeaon <= "" Then 
Do Until iIndex = rsAcquisition.RecordCount Or bFound 

T£ rsAcquisition!Acquisition = txtAcquisition Then 
cbhoAcquisition.Text = rsAcquisition!Acquisition 
bFound = True 

Else 
rsAcquisition.MoveNext 
iIndex = iIndex + 1 

End If 


Loop 
Png ee 


End Sub 
Private Sub txtGISRS_ Change () 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsGISRS.MoveFirst 
iG tCxXtGISRS <> "“ Then 
Do Until iIndex = rsGISRS.RecordCount Or bFound 
If rsGISRS!GISRSTerminal = txtGISRS Then 
cboGISRS.Text = rsGISRS!GISRSTerminal 
bFound = True 
Else 
rsGISRS .MoveNext 
lIndex = iIndex + 1 
End If 


Loop 
Deel Ale 


End Sub 
Private Sub txtPlatform_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsPlatform.MoveFirst 
TE txt Platftorm <> "" Then 
Do Until iIndex = rsPlatform.RecordCount Or bFound 
Tf rsPlatform! Platform = txtPlatform Then 
cbhoPlatform.Text = rsPlatform! Platform 
bFound = True 
Else 
rsPlatform.MoveNext 
iIndex = iIndex + 1 
End If 


Loop 
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End If 
End Sub 
Private Sub txtPTW_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsPTW.MoveFirst 
hE EXCPIW <> @29 then 
Do Until iIndex = rsPTW.RecordCount Or bFound 
If rsPTW! PTWTerminal = txtPTW Then 
cboPTW.Text = rsPTW! PTWTerminal 
bFound = True 
Else 
rsPTW.MoveNext 
lIndex = iIndex + 1 
End If 


Loop 
End If 


End Sub 

Private Sub txtSensor_Change() 
‘selects -eerrect combo box Listing 
Dim iiIndex As Integer 


Dim bFound As Boolean 


rsSensor.MoveFirst 


LE txtSensor <> "" Then 
Do Until iIndex = rsSensor.RecordCount Or bFound 
If rsSensor!SensorType = txtSensor Then 


cboSensor.Text = rsSensor!SensorType 
bFound = True 


Else 
rsSensor.MoveNext 
iIndex = iIndex + 1 
End If 
Loop 
Ena =e 
End Sub 
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‘Module: frmNomEvents.frm 

‘Description: Allows user to access the nomination event 
records for addition, deletion, and 

’ Mod FEteation. 
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‘Programmer: Kevin Colon 
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Opteron Exo ureye 


Dim rsAcquisition As Recordset 
Dim rsMensuration As Recordset 


Dim rsGISRS As Recordset 

Dim stSQL1 As String 

Dim stSQL2 As String 

Dim stSQL3 As String 

Private WordApp As Word.Application 
Private Doc As Word. Document 
Private Sel As Word.Selection 


Private Sub cboAcquisition_Change() 


TE Chestecamasition.Listd@ndex >= 0 Then 
EXEACOUMNSIELON = ChHoOACGUIS1 Lions rext 
Enews 


End Sub 
Private Sub cboGISRS_Change () 


If cboGISRS.ListIndex >= 0 Then 
txtGISRS = cboGISRS.Text 
Ena if 


End Sub 
Private Sub cboMensuration_Change() 


If cboMensuration.ListIndex >= Q Then 
txtMensuration = cboMensuration.Text 
helo koe 


End Sub 
Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 
If ecmdAdd.Caption = "&Add Event" Then 


datNomination. Recordset .AddNew 
cboAcquisition.Enabled = True 
cboMensuration.Enabled = True 
CcboGISRS.Enabled = True 
cboAcquisition.Listindex 
cboMensuration.ListiIndex 
cboGISRS.ListIndex = -1 
txtTimeSent.Enabled = True 
txtTimeRcvd.Enabled = True 


=i) 
=I 
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txtAssess.Enabled = True 
txtTLE.Enabled = True 
cmdUpdate.Enabled = False 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdAdd.Caption = "&Cancel" 
mnuFile.Enabled = False 
datNomination.Enabled = False 


Else 


datNomination.Recordset.CancelUpdate 
choAcquisition.Enabled = False 
cboMensuration.Enabled = False 
cboGISRS.Enabled = False 
txtTimeSent.Enabled = False 
txtTimeRcvd.Enabled = False 
txtAssess.Enabled = False 
txtTLE.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datNomination.Enabled = True 
cmdAdd.SetFocus 


End If 


cmdAGgdeCiiek Exit: 


Ex & Subp 
HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 


Err .Description 
MsgBox stMess, vbExclamation, “Database Error" 
On =ErEor Gores) “CUE OLEVercor trapping 


End Sub 
Private Sub cmdDel_Click() 
Dim iResp As Integer 
On Error GoTo HandleDelErrors 


If datNomination.Recordset.RecordCount > O Then 
iResp = MsgBox("Delete Event " & txtNomination & "?", vbYesNo, 


"Delete Event") 
If 1Resp = vbYes Then 
With datNomination.Recordset 
.Delete 
. MoveNext 
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If .EOF Then 
.MovePrevious 
If .BOF Then 
MsgBox "The recordset is empty.", 
vbinformeatizon, "No Records” 


Ena If 
Paid Lf 
End With 
Ema if 
Else 
MsgBox "No records to delete.", vbExclamation, "Delete Event" 
Ena eee 
ecmdDel_Click: 
Exit Sub 
HandleDelErrors: 
Dim stMess As String 
stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 


Err .Description 
MsgBox stMess, vbExclamation, "Database Error" 


On Error GoTo 0 
End Sub 
Private Sub cmdSave_Click() 
‘save current record 
On Error GoTo HandleSaveErrors 


If cboAcquisition.ListIndex >= 0 And cboGISRS.ListIndex >= 0 Then 
If Val(txtCounter) < 10 Then 


txtNomination.Text = "NEO0O00" & txtCounter.Text 
Else 
If Val(txtCounter) < 100 Then 
txtNomination.Text = "NEOOO" & txtCounter.Text 
Else 
If Val(txtCounter) < 1000 Then 
txtNomination.Text = "NEQO" & txtCounter.Text 
Else 
heeValis(txtCoumter) < 10000fhen 
txtNomination.Text = "NEO" & txtCounter.Text 
Else 
txtNomination.Text = "NE" & txtCounter.Text 
Ene it 
Ena If 
End If 
evs) Mag 


datNomination.Recordset .Update 
Else 
MsgBox "You must select an Acquisition Event and a GISRS 
Terminal before saving." 
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, VbExclamation, "Add Nomination Event" 
datNomination.Recordset.CancelUpdate 


End sir 
cboAcquisition.Enabled = False 
cboMensuration.Enabled = False 


cboGISRS.Enabled = False 
txtTLE.Enabled = False 
txtTimeSent.Enabled = False 
txtTimeRcvd.Enabled = False 
txtAssess.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmaDel.Enabled = True 
cmdAdd.Caption = "&Add Event" 
mnuFile.Enabled = True 
datNomination.Enabled = True 
cmdAdd.SetFocus 


datNomination.Enabled = True 


cmdSave_Click_ Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “turn Off EnGnoOr st rapping 


Case 3058, 3315 ‘no entry in key field 
stMess = "Select Acquisition Event and GISRS Terminal 
before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off error trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datNomination.Recordset.CancelUpdate 
Resume Next 
End Select 


End Sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datNomination.Recordset.RecordCount > OQ Then 


cmdUpdate.Caption = "Su&bmit" 
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True 
True 


cboAcquisition.Enabled 
cboMensuration. Enabled 
cboGISRS.Enabled = True 
txtTimeSent.Enabled = True 
txtTimeRcvd.Enabled = True 
txtTLE.Enabled = True 
txtAssess.Enabled = True 
cmdAdd.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
datNomination.Enabled = False 
datNomination.Recordset.Edit 


Else 
If datNomination.Recordset.RecordCount > 0 Then 
datNomination.Recordset .Update 
cboAcquisition.Enabled = False 
cboMensuration.Enabled = False 
cboGISRS.Enabled = False 
txtTLE.Enabled = False 
txtTimeSent.Enabled = False 
txtTimeRcvd.Enabled = False 
txtAssess.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd. SetFocus 
cmdUpdate.Caption = "&Update" 
mnuFile.Enabled = True 
datNomination.Enabled = True 
shat | Noe 
End. if 
End Sub 


Private Sub datNomination_Reposition() 
SetNominationRecordNumber 

End Sub 

Private Sub Form_Load() 


datNomination.DatabaseName = gstNewDatabase 


stSQL1 = "Select Acquisition from Acquisition" 
stSQL2 = "Select Mensuration from Mensuration" 
StSQL3 = "Select GISRSTerminal from GISRSTerminal" 


Set rsAcquisition = db.OpenRecordset (stSQL1) 
Set rsMensuration = db.OpenRecordset (stSQL2) 
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Set rsGISRS = db.OpenRecordset (stSQL3) 


fill ehoncquas1F10n 

ComlmtiieersAacguisi1tion FOr 
cboAcquisition.AddItem rsAcquisition!Acquisition 
molest 1On.Movenexe 

Loop 


‘fill cboMensuration 

Do Until rsMensuration.EOF 
cboMensuration.AddItem rsMensuration!Mensuration 
rsMensuration.MoveNext 

Loop 


(pill CbOGlsks 

Do Until rsGISRS.EOF 
cboGISRS.AddItem rsGISRS!GISRSTerminal 
rsGISRS.MoveNext 

Loop 


With datNomination 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End 446 
End With 


SetNominationRecordNumber 
End Sub 
Private Sub SetNominationRecordNumber () 


Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datNomination.Recordset.RecordCount 
icurrentRecord = datNomination.Recordset.AbsolutePosition + 1 


If datNomination.Recordset.EOF Then 
datNomination.Caption = "No more records" 
Else 
datNomination.Caption = "Nomination Event Record " & 
iCurrentRecord & _ 
tor “& 1 Recordcoune 
Ene. Lf 


End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 
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End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub mnuFilePrint_Click() 
frmPrint.Show 


On Emer GoTo mnuPrintErrors 
If bContinue = True Then 
With datNomination. Recordset 
If bWord = True Then 
Set WordApp = New Word.Application 
WordApp.Documents.Add 
Set Doc = WordApp.ActiveDocument 
Set Sel = WordApp.Selection 
Doc.Tables.Add Range:=Sel.Range, NumRows:=.RecordCount, 
NumColumns:=8 

Sel .TypeText Text:="Nomination" 


Sel .MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Nomination Sent" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="Nomination Rcvd" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="Acquisition" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Mensuration" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="GISRS" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Assessment" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="Target Location Error" 
Sel .MoveRight unit:=12 ‘I2=next. cei. 


De, Until wseor 
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Sel.TypeText Text:=!Nomination 


Sel .MoveRight unit:=12 *12=next 
cell 
Sel .TypeText Text:=!NomTimeSent 
Sel .MoveRight unit:=12 oe =next 
cell 
Sel .TypeText Text:=!NomTimeRcvd 
Sel .MoveRight unit:=12 12 -We xe 
cell 
Sel .TypeText Text:=!Acquisition 
Sel .MoveRight unit:=12 ‘1 2=nexe 
cell 
Sel .TypeText Text:=!Mensuration 
Sel .MoveRight unit:=12 ee nese 
cell 
Sel.TypeText Text:=!GISRSTerminal 
Sel .MoveRight unit:=12 OZ esate 
eel 
Sel .TypeText Text:=!Assessment 
Sel.MoveRight unit:=12 ‘12=next 
cell 
Sel .TypeText Text:=!TargetLocationError 
Sel.MoveRight unit:=12 “I2=next 
cell 
-. MoveNext 
Loop 
WordApp.Visible = True 
Set WordApp = Nothing 
Else 
If bText = True Then 
Open App.Path & "\NomEvents.txt" For Output As #1 
Print #1, “Nemination”; €hr(9)> “Nomination Sent”; 
Chr(9); "Nomination Rcvd"; Chee 
MACGUISItC Lom. enn (9); "Mensuration”; 
Gili (9); 
"GISRTerminal"; Chr(9); “Assessment”; 
Chane): 


Lame elwOocatzTlOnmamor 2. Cnr (9) 


Do Until .EOF 
|g 


Paincenl.. ‘Nomination; Chr{9) ; 
!NomTimeSent; Chr(Q9) ; 
!NomTimeRcvd; Chr (9); 
PAGGuasition: Chr(g9) ; 
!Mensuration; Chr(9Q); 
!GISRSTerminal; Chr(9); 
!Assessment; Chr(9); 
!TargetLocationError; Chr(9) 


.MoveNext 
Loop 
Close #1 
End ‘If 
End If 
.MoveFirst 
End With 
End If 
bContinue = False 
bWord = False 
bText = False 
mnuPrintErrors: 
Select Case Err.Number 
Case 94 
Sel.TypeText Text:="" 
Resume Next 
End Select 
End Sub 


Private Sub txtAcquisition_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsAcquisition.MoveFirst 
tewtexeAceulsi tron <> "" “Then 
Do Until ifndex = rsAcquisition.RecordCount Or bFound 
If rsAcquisition!Acquisition = txtAcquisition Then 
cbhoAcquisition.Text = rsAcquisition!Acquisition 
bFound = True 
Else 
rsAcquisition.MoveNext 
1Index = iIndex + 1 
Bod Lf 
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Loop 
End If 


End Sub 
Private Sub txtGISRS_Change() 


‘selects correct combo box listing 
Dim iiIlndex As Integer 
Dim bFound As Boolean 


rsGISRS.MoveFirst 
Tf €xtGISRS <> Y* Then 
Do Until iIndex = rsGISRS.RecordCount Or bFound 
If rsGISRS!GISRSTerminal = txtGISRS Then 
cboGISRS.Text = rsGISRS!GISRSTerminal 
bFound = True 


Else 
rsGISRS.MoveNext 
iIndex = iIndex + 1 
EnGe rt 
Loop 
End If 
End Sub 


Private Sub txtMensuration_Change() 


‘selects correct combo box listing 
Dim iiIndex As Integer 
Dim bFound As Boolean 


rsMensuration.MoveFirst 
If txtMensuration <> "" Then 
Do Until iIndex = rsMensuration.RecordCount Or bFound 
If rsMensuration!Mensuration = txtMensuration Then 


cboMensuration.Text = rsMensuration!Mensuration 
bFound = True 

Else 
rsMensuration.MoveNext 
iIndex = iIndex + 1 

Iolsl aikse 

Loop 
End TE 


End Sub 
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‘Module: frmObj)ectives. fzm 
Weseription: Allows user to access the objectives 
; records for addition, deletion, and 
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, modification. 


a re 
‘Programmer: Kevin Colon 
PKK KKK KEK KKK KEK KK KKK KKK KKK KK KKK KEK KKK KEK KKK KEK KKK KKK KKK KKK IKKE KKEKHEHE 


Optiemt Explicie 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
datObjectives.Recordset .AddNew 
txtObjective.Enabled = True 
txtObjective.SetFocus 
txtDescription.Enabled = True 
cmadAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datObjectives.Enabled = False 


Else 
datObjectives.Recordset .CancelUpdate 
txtObjective.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
datObjectives.Enabled = True 


Eniciet 


encmad Click _ Exit: 
Exit Sub 


HandleAddErrors: 
Dim stMess' As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn Off eCrrem thapping 


End Sub 

Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datObjectives.Recordset.RecordCount > 0 Then 
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iResp = MsgBox("Delete Objective " & txtObjective.Text & "?", 
ybYesNo, "Delete Objective") 
If iResp = vbyes Then 
With datObjectives.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
it) .50r Then 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset iS -enp ey aa, 
vybInformation, "No Records" 


Ena Lf 
End If 
Inerel Walesa 
End If 
Else 
MsgBox "No records to delete.", vbExclamation _ 
"Delete Objective" 
End ie 


cmdDel_Click_Exit: 
Exit Sub 


HandleDelErrors: 
Dim stMsg Reweot Ging 


stMsg = "Cannot complete operation." & vbCrLE & vbCrLit _ 
& Err. Desecriperon 

MsgBox stMsg, vybExclamation, "Database Error" 

On Error GoTo 0 ‘turn off error trapping 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim 1Resp As Integer 


On Error GoTo HandleSaveErrors 
If txtObjective <> "" And txtDescription <> "" Then 
txtObjective = UCase (txtObjective) 
iResp = MsgBox("Do you want to add " & txtObjective & _ 
" to the database?", vbYesSNo + vbQuestion, _ 
"Add Objective") 
If iResp = vbYes Then 
datObjectives.Recordset.Update 


iMatelmaese 
Else 
MsgBox "You must enter an Objective and a description before 
saving.", vbExclamation _ 


"Add Objective" 
datObjectives.Recordset.CancelUpdate 
End If 
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txtObjective.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
GatObjectives.Enabled = True 
mnuFile.Enabled = True 

emaAda Gaptaon = "sAdd” 
cmdAdd.SetFocus 
cmdadUpdate.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn Off error tCrappang 

Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a Objective name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “CU OrerwehrOr tChapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datObjectives.Recordset.CancelUpdate 
Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 
T£ cmdUpdate.Caption = "&Update" And _ 
datObjectives.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&ébmit" 
txtObjective.Enabled = True 
txtDescription.Enabled = True 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
txtObjective.SetFocus 
cmdAdd.Enabled = False 
datObjectives.Enabled = False 
GatObjectives.Recordset.Edit 

Else 
Tf datObjectives.Recordset.RecordCount > 0 Then 

datObjectives.Recordset.Update 


txtObjective.Enabled = False 
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txtDescription.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 

cmadAdd. SetFocus 


cmdUpdate.Caption = "&Update" 
datObjectives.Enabled = True 
jmatol iipe 
ENnGo re 
End Sub 


Private Sub datObjectives_Reposition() 
SetObjectiveRecordNumber 


End Sub 


Private Sub Form_Load() 
datObjectives.DatabaseName = gstNewDatabase 


With datObjectives 
.Refresh 
Tf Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
Emad It 
End With 


SetObjectiveRecordNumber 


End Sub 

Private Sub Form_Unload(Cancel As Integer) 
frmMain. Show 
frmMain.Enabled = True 
Unload Me 

End Sub 


Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub mnuFileSearch Click() 


datObjectives.Recordset.FindFirst "[Description] = 
InputBox("Enter the Objective", "Objective Search") & 


LL AL 


If datObjectives.Recordset.NoMatch Then 


"Objective Search" 


MsgBox “Objective was not found.", vbOKOnly, 
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datObjectives.Recordset .MoveFirst ‘go to Piirst record 
leave, 1038 


End Sub 


Private Sub SetObjectiveRecordNumber () 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


1RecordCount = datObjectives.Recordset.RecordCount 
iCurrentRecord = datObjectives.Recordset .AbsolutePosition + 1 
If datObjectives.Recordset.EOF Then 


datObjectives.Caption = "No more records" 
Else 
datObjectives.Caption = "Objective " & iCurrentRecord & _ 
" of " & 1RecordCount 
Bnd Tf 
End Sub 
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’Module: frmPlatforms.frm 

‘Description: Allows user to access the platform 
; records for addition, deletion, and 
modification. 

'Programmer: Kevin Coldén 


Vike eae KK KKK KEKE KK KKK EKER K KKK KEK KKK KKK KKK KKEKKEKKEKKKEKKK KK KKK KKK KK 


Operen Explicit 
Private Sub cboPlatType_Click() 


If cboPlatType.ListIndex >= 0 Then 
txtPlatTypelId = cboPlatType.Text 


Emad It 
End Sub 
Private Sub cmdAddPlat_Click() 
On Error GoTo HandleAddPlatErrors 
If cmdAddPlat.Caption = "&Add Platform" Then 


datPlatforms.Recordset .AddNew 
cboPlatType.Enabled = True 
cboPlatType.ListIndex = 0 
txtPlatform.Enabled = True 
txtPlatName.Enabled = True 
txtCommander .Enabled True 
txtSpecialty.Enabled True 
txtLocation.Enabled = True 
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txtLogger.Enabled = True 
txtPlatTypeld.Enabled = True 
cmdaSavePlat.Enabled = True 
emdDelPlat.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
cboPlatType.SetFocus 
cmdAddPlat.Caption = "eCancel" 
datPlatforms.Enabled = False 
Else 
dat Platforms. Recordset .CancelUpdate 


cboPlatType.Enabled = False 
txtPlatform. Enabled = False 
txtPlatName.Enabled = False 
txtCommander . Enabled = False 
txtSpecialty.Enabled = False 
txtLocation.Enabled = False 
txtLogger.Enabled = False 
txtPlatTypeld.Enabled = False 
cmdadSavePlat.Enabled = False 
cmdDelPlat.Enabled = True 
cmdUpdate. Enabled = True 
mnuFile.Enabled = True 
cmdAddPlat.Caption = "sAdd Platform" 
cemdAddPlat .SetFocus 


datPlatforms.Enabled = True 


Bhea Lt 


cmdaAddPlat_Click_Exit: 
Exit Sub 


HandleAddPlatErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off error trapping 


End Sub 

Private Sub FillplatTypeCombo () 
Dim iCount As Integer 
‘fill the PlatType combo box 
cboPlatType.Clear 
With datPlatType 


.Refresh ‘open database 
icount = -Recordset.RecordCount 
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‘fi ee he 11sit 
Do Until .Recordset.EOF 
If .Recordset!PlatformType <> "" Then 
cboPlatType.Additem .Recordset! PlatformType 


Dgiel site 
.Recordset .MoveNext 
Loop 
End With 


End Sub 

Private Sub cmdDelPlat_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelPlatErrors 


Tf datPlatforms.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Platform " & txtPlatform & "?", vbYesNo, 


"Delete Platform") 
If iResp = vbYes Then 
With datPlatforms.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
If .EOF Then 

.MovePrevious 


if. BOF Then 
MsgBox "The recordset iS empty.", 


vbinformation, "No Records" 


End Lf 
ghee alipe 
End With 
End 2s 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, "Delete Event" 
Delsl itis 


cmdDelPlat_Click_Exit: 
Exit Sub 


HandleDelPlatErrors: 
Dim stMsg As String 


StMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo .0 “EliphiNOLE Clrromws trap ol ag 


End Sub 


Private Sub cmdSavePlat_Click() 
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‘save the current record 


On Error GoTo HandleSavePlatformErrors 
If cboPlatType.ListIndex >= 0 Then 


If txtPlatform <> "" And txtPlatName <> "" Then 
datPlatforms.Recordset.Update 
Else 
MsgBox "You must enter a Platform name and id before 
Savage. ee 
, VbExclamation, "Add Platform" 
dat Platforms .Recordset.CancelUpdate 
Ene £ 
Else 
MsgBox "You must select a Platform Type before saving." 
, VbExclamation, "Add Platform" 
datPlatforms.Recordset .CancelUpdate 
lee! Ihe 


cboPlatType.Enabled = False 
txtPlatform.Enabled = False 
txtPlatName.Enabled = False 
txtCommander.Enabled = False 
txtSpecialty.Enabled = False 
txtLocation.Enabled = False 
txtLogger.Enabled = False 
txtPlatTypeId.Enabled = False 
cemdSavePlat.Enabled = False 
cmdDelPlat.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAddPlat.Caption = "&Add Platform" 
cmdAddPlat.SetFocus 


datPlatforms.Enabled = True 


cmdSavePlat_Click_Exit: 
Exit Sub 


HandleSavePlatformErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off error trapping 


Case 3058, 3315 ’no entry in key field 
stMess = "Select a platform type before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “Urn GL error “erapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf 
& Err.Desecrtpemen 
MsgBox stMess, vbExclamation, "Database Error" 
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== 


End 


Ena Sub 


Private 


datPlatforms .Recordset.CancelUpdate 
Resume Next 
Select 


Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 


Else 


End 


End Sub 


Private 


datPlatforms.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
cboPlatType.Enabled = True 
txtPlatform.Enabled = True 


txtPlatform. SetFocus 
txtPlatName.Enabled = True 
txtCommander.Enabled = True 
txtSpecialty.Enabled = True 
txtLocation.Enabled = True 
txtLogger.Enabled = True 
txtPlatTypeId.Enabled = True 
cmdDelPlat.Enabled = False 
cmdAddPlat.Enabled = False 
mnuFile.Enabled = False 
datPlatforms.Enabled = False 
datPlatforms.Recordset.Edit 


If datPlatforms.Recordset.RecordCount > 0 Then 
datPlatforms.Recordset .Update 


cboPlatType.Enabled False 
txtPlatform. Enabled False 
txtPlatName.Enabled = False 
txtCommander.Enabled = False 
txtSpecialty.Enabled = False 
txtLocation.Enabled = False 
txtLogger.Enabled = False 
txtPlatTypelId.Enabled = False 
cmdDelPlat.Enabled = True 
mnuFile.Enabled = True 
cmdAddPlat.Enabled = True 
cemdAddPlat.SetFocus 
cmdUpdate.Caption = "“&Update" 
datPlatforms.Enabled = True 

Ena Lf 

Ise 


i 


Sub datPlatforms_Reposition() 


Set PlatformRecordNumber 


End Sub 
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Private Sub Form_Load() 
datPlatforms.DatabaseName = gstNewDatabase 
datPlatType.DatabaseName = gstNewDatabase 


FillPlatTypeCombo 


With datPlatforms 
.Refresh 
Tf Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End If 
End With 


datPlatType.Refresh 
datPlatType.Recordset .MoveFirst 


SetPlat£formRecordNumber 
End Sub 
Private Sub SetPlatformRecordNumber () 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 
1RecordCount = datPlatforms.Recordset.RecordCount 


i1CurrentRecord = datPlatforms.Recordset .AbsolutePosition + 1 
Tf datPlatforms.Recordset.EOF Then 


datPlatforms.Caption = "No more records" 
Else 
datPlatforms.Caption = "Platform Record " & iCurrentRecord & _ 
"of " & iRecordCount 
End If 
End Sub 


Private Sub mnuFileBack_Click() 
frmMain. Show 
frmMain.Enabled = True 
Unload Me 

End Sub 


Private Sub mnuFileSearch Click() 


datPlatforms.Recordset.FindFirst "[PlatformId) = '" & _ 
impumbox ("Enter themelatform Idan “Rllatrorm Id Search") 
gure 
If datPlatforms.Recordset.NoMatch Then 
MsgBox "Platform Id was not found.", vbOKOnly, "Platform Id 
Search" 
datPlatforms.Recordset.MoveFirst “GO ‘LOmEtrst Eecord 
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Iveta. Ite 
End Sub 
Private Sub txtPlatTypelId_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


datPlatType.Recordset .MoveFirst 
Tf txtPlatTypeId <> "" Then 
Do Until iIndex = datPlatType.Recordset.RecordCount Or bFound 
If datPlatType.Recordset!PlatformType = txtPlatTypeId Then 


cboPlatType.Text = datPlatType.Recordset! PlatformType 
bFound = True 


Else 
datPlatType.Recordset.MoveNext 
index — 1index = 1 
Bre Lf 
Loop 
Else 
cboPlatType.ListIndex = -1 
Bniceake 
End Sub 
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‘Module: frmPlatformsTypes. frm 

‘Description: Allows user to access the platform types 
: records for addition, deletion, and 

: Moai wcataron - 

‘Programmer: Kevin Coldn 
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Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
datPlatTypes.Recordset .AddNew 
txtPlatformType.Enabled = True 
txtPlatformType.SetFocus 
txtDescription.Enabled = True 
cmdAdd.Caption = "&Cancel" 
cemdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datPlatTypes.Enabled = False 
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Else 
datPlatTypes.Recordset.CancelUpdate 
txtPlatformType.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
datPlatTypes.Enabled = True 


End If 


emdAdd CivekrE sit: 
Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = “Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 Pate Ort ECrror tCrapping 


End Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim i1Resp As Integer 


On Error GoTo HandleDelErrors 


If datPlatTypes.Recordset.RecordCount > 0O Then 
iResp = MsgBox("Delete Platform " & txtPlatformType.Text & "?", 
vbYesNo, "Delete Platform") 
If iResp = vbYyes Then 
With datPlatTypes.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
If .EOF Then 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset 1S empty.", 


vbInformation, "No Records" 


Enaete 
yavel Ine 
End With 
Enea Le 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, “Delete Platform" 
End De 


cmdDel _Click_Exit: 
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Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


StMsqm=smeannot, Complete Operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error Goro 0 ‘tubneert error trapping 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
If txtPlatformType.Text <> "" Then 
txtPlatformType.Text = UCase(txtPlatformType.Text) 
iResp = MsgBox("Do you want to add " & txtPlatformType.Text & 
"to the database?", vbYesNo + vbQuestion, 
"Add Platform") 
If iResp = vbYes Then 
datPlatTypes.Recordset.Update 
Ene 2f 


—_ 


Else 
MsgBox "You must enter a Platform type before saving.", 
vbExclamation _ 
PS RaGe Plat torn: 
datPlatTypes.Recordset .CancelUpdate 
letel lige 


txtPlatformType.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datPlatTypes.Enabled = True 
mnuFile.Enabled = True 
cemdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists ~-- could not save>’" 
MsgBox stMess, vbExclamation, “Database Error" 
On Error GoTo 0 ‘turn Off ermemetrapping 
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Gasess056, 3315 ‘no entry in key field 
stMess = "Enter a Platform type before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo Q “curn off Cron erappaing 


Case Else 
stMess = "Record could not be saved." & vbCrLf— _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datPlatTypes.Recordset.CancelUpdate 
Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
datPlatTypes.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
txtPlatformType.Enabled = True 
txtDescription.Enabled = True 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
txtPlatformType.SetFocus 
cmdAdd.Enabled = False 
datPlatTypes.Enabled = False 
datPlatTypes.Recordset.Edit 

Else 
If datPlatTypes.Recordset.RecordCount > 0O Then 

datPlatTypes.Recordset.Update 


txtPlatformType.Enabled = False 
txtDescription.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 


cmdUpdate.Caption = "&Update" 
datPlatTypes.Enabled = True 
Ene Let 
ENG ic 
End Sub 


Private Sub datPlattypes_Reposition() 
SetPlatformRecordNumber 

EndesuS 

Private Sub Form_Load() 


datPlatTypes.DatabaseName = gstNewDatabase 
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With datPlatTypes 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset.MoveLast 
.Recordset.MoveFirst 
Ener Lr 
End With 


SetPlat formRecordNumber 


Ena Sud 
Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch_Click() 


datPlatTypes.Recordset.FindFirst "[PlatformType] = ’" & _ 


InputBox("Enter the Platform Type", "Platform Type 
Search" ) e wei 


If datPlatTypes.Recordset.NoMatch Then 


MsgBox "Platform Type was not found.", vbOKOnly, "Platform Type 
Search" 


datPlatTypes.Recordset.MoveFirst “qo to first record 
Bae’ If 


End Sub 


Private Sub SetPlatformRecordNumber () 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datPlatTypes.Recordset.RecordCount 
iCcurrentRecord = datPlatTypes.Recordset.AbsolutePosition + 1 
If datPlatTypes.Recordset.EOF Then 


datPlatTypes.Caption = "No more records" 
Else 
datPlatTypes.Caption = "Platform " & iCurrentRecord & _ 
"of " & 1RecordCount 
29 Ke lie i & 
End Sub 


189 


PRK KR KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KEK 


‘Module: ErMerine . Erm 

‘Description: Allows user to choose to export report to Word 
: or to a text file 

‘Programmer : Kevin Colon 
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OpE2on. Expilaerte 

Private Sub cmdCancel_Click() 
Unload Me 

End Sub 

Private Sub cmdOK_Click() 
bContinue = True 
If Optionl.Value = True Then 


bWord = True 


Else 
If Option2.Value = True Then 


bText = True 


End If 
End If 
Unload Me 
End Sub 


i Sh a i a i i ee ee ee a a i i i i i ae a, i ie i a a, a ee 3 


'Module: frmPTW. frm 

'Description: Allows user to access the PTW terminal 
records for addition, deletion, and 
modification. 

‘Programmer: Kevin Col6én 
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Spelt Oe Explicit 
Dim rsPlatform As Recordset 
Dim stSOL As String 
Private Sub cboPlatform_Click() 
If cboPlatform.Listindex >= }0e@hen 
txtPlattorm = cbhoPlatformmpevlext 


Ena If 


End Sub 
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Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
datPTW.Recordset .AddNew 
txtTerminal.Enabled = True 
txtTerminal.SetFocus 
txtFunction.Enabled = True 
cbhoPlatform.Enabled = True 
cmadAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
dat PTW.Enabled = False 


Else 
datPTW.Recordset.CancelUpdate 
txtTerminal.Enabled = False 
txtFunction.Enabled = False 
cboPlatform.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "“&Add" 
cmdAdd.SetFocus 
datPTW.Enabled = True 


Bma If 


emenaa Click _Exit: 
Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On ErEo-r Colo. 0 ‘turn off error Berapping 


End Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datPTW.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Terminal " & txtTerminal.Text & "?", 
vbYesNo, "Delete Terminal") 
If iResp = vbYes Then 
With datPTW.Recordset 


19] 


.Delete ‘delete current record 


.MoveNext ‘move to following record 
ht . BOF “Fhen 
.MovePrevious 


If .BOF Then 
MsgBox "The recordset 1S empty.", 
vbInformation, "No Records" 


Emel & 
End If 
End With 

End If 
Else 

MsgBox “No records to delete.", vbExclamation _ 

"Delete Terminal" 

Ena if 


emdDe  w@ilvelc Exit 
Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On, Error Goto 0 “EULM Off Error. trapping 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
re eExtTerminal. text <> "" Then 
txtTerminal.Text = UCase(txtTerminal.Text) 


iResp = MsgBox("Do you want to add " & txtTerminal.Text & _ 


" to the database?", vbYesNo + vbQuestion, 
"Add Terminal") 
If 1Resp = vbYes Then 
GatPTW.Recordset .Update 
idigle | ie 


Else 
MsgBox "You must enter a Terminal before saving.", 
vbExclamation _ 
, “Add Terminal" 
datPTW.Recordset .CancelUpdate 
Ene! ie 


txtTerminal.Enabled = False 
txtFunction.Enabled = False 
cboPlatform.Enabled = False 
cmdSave.Enabled = False 


re. 


cmdDel .Enabled isa b= 
datPTW.Enabled True 
mnuFile.Enabled = True 
emadsaae, Caption = "*s&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 


cemdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’‘" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘CUD OL f error (Erapping 
Case 3058, 3315 ‘no entry in key field 
stMess = “Enter a location before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “CULM OLE error trapping 


Case Else 
stMess = “Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datPTW.Recordset.CancelUpdate 
Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
datPTW.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&ébmit" 

txtTerminal.Enabled = True 

txtFunction. Enabled True 

cboPlatform.Enabled = True 

cmdDel.Enabled = False 

mnuFile.Enabled = False 

txtTerminal.SetFocus 

cmdAdd.Enabled = False 

datPTW.Enabled = False 

datPTW.Recordset.Edit 

Else 

If datPTW.Recordset.RecordCount > 0 Then 
txtTerminal = UCase(txtTerminal) 
datPTW.Recordset .Update 


False 
False 
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txtTerminal.Enabled 
txtFunction. Enabled 


cboPlatform.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
cmdaAdd.Enabled = True 
cmdaAdd. SetFocus 


cmdUpdate.Caption = "&Update" 
datPTW.Enabled = True 
Emig, ir 
lsiqicl Alam 
End Sub 


Private Sub datPTW_Reposition() 
SetTerminalRecordNumber 
End Sub 
Private Sub FillPlatformCombo() 
Dim iCount As Integer 
‘fill the PlatType combo box 
cboPlatform.Clear 
With rsPlatform 
LCounte— .RecoroCoune 
“Pi Ll “ene Lise 
Do Unt aiee2or 
LiavtElatiosune.<=> "“ Then 
cboPlatform.AddItem !Platform 
Mails Abie 
-.MoveNext 
Loop 
End With 
End Sub 
Private Sub Form_Load() 
datPTW.DatabaseName = gstNewDatabase 
stSOQL = "Select Platform from Platform" 
Set rsPlatform = db.OpenRecordset(stSQL) 
FillPlatformCombo 
With datPTW 
.Refresh 


If Not .Recordset.EOF Then 
.Recordset.MoveLast 
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.Recordset .MoveFirst 
Emee If 
End With 
SetTerminalRecordNumber 
End Sub 


Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch _Click() 
datPTW.Recordset.FindFirst "[PTWTerminal] = ’" & _ 
InputBox("Enter the PTW Terminal", "PTW Terminal 


Search") & "ue 


If datPTW.Recordset .NoMatch Then 


MsgBox "PTW Terminal was not found.", vbOKOnly, “PTW Terminal 
Search" 
dat PTW. Recordset .MoveFirst ‘gO tO fitseste record 
lejos hse 
End Sub 


Private Sub SetTerminalRecordNumber () 
Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datPTW.Recordset .RecordCount 
iCurrentRecord = datPTW.Recordset .AbsolutePosition + 1 
If datPTW.Recordset.EOF Then 


datPTW.Caption = "No more records" 
Else 
datPTW.Caption = "Terminal " & iCurrentRecord & _ 
“OF “ -& 1RecordGoune 
End J£ 
End) Sub 


Private Sub txtPlatform_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
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Dim bFound As Boolean 


rsPlatform.MoveFirst 
[Me txtPlattorm <>) "ye nen 
Do Until iIndex = rsPlatform.RecordCount Or bFound 
If rsPlatform! Platform = txtPlatform Then 
cboPlatform.Text = rsPlatform! Platform 
bFound = True 
Else 
rsPlatform.MoveNext 
1Index = iIndex + 1 
End ie 
Loop 
Else 
cboPlatform.ListIndex = -1 
End If 


End Sub 
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‘Module: frmQueries.frm 
‘Description: Contains predefined queries that filter 


f 


f 


acquisitions and targets based on a parameter 
selected by the user. 


‘Programmer: Kevin Colon 
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Option Exp tei. 
Dim Index As Integer 


Private Sub cmdCancel_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub cmdSubmit_Click() 


frmQueryOutput.Show 
Me.Enabled = False 


End Sub 


Private Sub Form_Load() 


datPlatforms.DatabaseName gstNewDatabase 
datSensTypes .DatabaseName gstNewDatabase 
datWeaponTypes.DatabaseName = gstNewDatabase 
datThreatTypes.DatabaseName = gstNewDatabase 


‘fill the Platform combo box 
FillPlatforms 
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‘fill the Sensor combo box 
FillSensTypes 


‘fill the Threat combo box 
FillThreatTypes 


‘fill the Weapon combo box 
FillWeaponTypes 


End Sub 
Private Sub FillPlatforms() 


cboPlatformsl1.Clear 
cboPlatforms2.Clear 


With datPlatforms 


.Refresh ‘open database 

‘fill the list 

Do Until .Recordset. EOF ‘untiMeno morse records am recordset 
If .Recordset!Platform <> "" Then 


cboPlatformsl.AddItem .Recordset! Platform 
cboPlatforms2.AddItem .Recordset! Platform 


Enda It 
-Recordset.MoveNext 


Loop 
End With 


End Sub 
Private Sub FillSensTypes() 


cboSensTypes1.Clear 
cboSensTypes2.Clear 


With datSensTypes 
.Refresh ‘open database 
mil the List 
Do Until .Recordset.EOF 
If .Recordset!SensorType <> "" Then 
cboSensTypesl.AddItem .Recordset !SensorType 
cboSensTypes2.AddItem .Recordset !SensorType 


Bnd Tf 
.Recordset .MoveNext 
Loop 
End With 
End Sub 
Private Sub FillThreatTypes () 


cboThreatTypes.Clear 


07 


With datThreatTypes 
.Refresh ‘open database 
Sra: the 11 sit 
Do Until .Recordset .EOF 


If .Recordset!ThreatType <> "" Then 
cboThreatTypes.AddItem .Recordset!ThreatType 
End If 
.Recordset .MoveNext 
Loop 
End With 
End Sub 


Private Sub FillWeaponTypes() 
cboWeaponTypes.Clear 


With datWeaponTypes 
.Refresh ‘open database 
oF 3 I Sene ast 
Do Until .Recordset.EOF 


If .Recordset!WeaponType <> "" Then 
cboWeaponTypes.AddItem .Recordset !WeaponType 
Ende re 
.Recordset .MoveNext 
Loop 
End With 
End Sub 


Private Sub Form_Unload(Cancel As Integer) 
frmMain.Enabled = True 
Unload Me 

End] sus 

Private Sub Labeli_Click() 
optQuery(0).Value = True 

End Sub 

Private Sub Label10_Click() 
optQuery (9) .Value = True 

End Sub 

Private Sub Labell1l_Click() 
optQuery(2).Value = True 


End Sub 


Private Sub Label2_Click() 
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optouery a). Value = True 

Ena) Sub 

Private Sub Label3_Click() 
optQuery(2).Value = True 

Ene Sub 

Private Sub Label4_Click() 
optQuery(3).Value = True 

Enea Sub 

Private Sub Label5_Click() 
optQuery(4).Value = True 

End Sub 

Private Sub Label6_Click() 
optQuery(5).Value = True 

End Sub 

Private Sub Label7_Click() 
optQuery(6).Value = True 

EMCerouib 

Private Sub Label8_Click() 
optQuery(7).Value = True 

End Sub 

Private Sub Label9_Click() 
optQuery(8).Value = True 

End Sub 

Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub optQuery_Click(Index As Integer) 
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Select Case Index 
Case 0 
cboPlatformsl1.Enabled True 
cboSensTypes1.Enabled False 
cboPlatforms2.Enabled = False 


cboSensTypes2.Enabled = False 

cboWeaponTypes.Enabled = False 

cboThreatTypes.Enabled = False 
Case 1 

cboPlatforms1.Enabled = False 

cbhoSensTypes1.Enabled = True 


cboPlatforms2.Enabled = False 
cbhoSensTypes2.Enabled = False 


cboWeaponTypes.Enabled = False 

cboThreatTypes.Enabled = False 
Case 2 

cboPlatforms1.Enabled = False 


cboSensTypesl.Enabled = False 
cboPlatforms2.Enabled True 
cboSensTypes2.Enabled = True 
cboWeapontTypes.Enabled False 
cboThreatTypes. Enabled False 


tt 


ut 


Case 3 
cboPlatformsl1.Enabled = False 
cboSensTypes1.Enabled False 
cboPlatforms2.Enabled = False 
cbhoSensTypes2.Enabled = False 


cboWeapontTypes.Enabled = True 

cboThreatTypes.Enabled = False 
Case 4 

cboPlatformsl1.Enabled = False 


cbhoSensTypesl1.Enabled = False 
cboPlatforms2 .Enabled False 
cboSensTypes2.Enabled False 
cboWeapontTypes.Enabled = False 
cboThreatTypes.Enabled = True 


Case 5 
cboPlatforms1.Enabled = False 
cboSensTypesl.Enabled = False 
cboPlatforms2.Enabled = False 


cboSensTypes2.Enabled = False 
cboWeaponTypes.Enabled = False 
cboThreatTypes.Enabled = False 


Case 6 
cboPlatformsl.Enabled = False 
cboSensTypesl1.Enabled = False 
cbhoPlatforms2.Enabled = False 


cboSensTypes2.Enabled = False 
cboWeaponTypes.Enabled = False 
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cboThreatTypes.Enabled = False 


Case 7 
cboPlatformsl.Enabled = False 
cboSensTypesl1.Enabled = False 
cboPlatforms2.Enabled = False 
cboSensTypes2.Enabled = False 


cboWeaponTypes.Enabled = False 
cboThreatTypes.Enabled = False 


Case 8 
cboPlatformsl.Enabled = False 
cboSensTypesl.Enabled = False 
cboPlatforms2.Enabled = False 
cboSensTypes2.Enabled = False 
cboWeaponTypes.Enabled = False 
cboThreatTypes.Enabled = False 
Case 9 
' cboPlatformsl.Enabled = False 
cboSensTypesl.Enabled = False 
cboPlatforms2.Enabled = False 
cboSensTypes2.Enabled = False 
cboWeaponTypes.Enabled = False 
cboThreatTypes.Enabled = False 
End Select 
End Sub 
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‘Module: frmQueryOutput.frm 

‘Description: Displays the results from the query executed 
; from the Queries form (frmQueries) 
‘Programmer: Kevin Coldén 


PKK KE KKK KE KEKE KKK KKK KKK KEKE KKK KKK KKK KKK KEKE KEK KKK KKK KKK KK KKK KKK KKK KEKE 


OseLon. EXpllere 


Private Sub Form_Load() 


Dim stSQL As String 
Dim stPrev As String 
Dim RS As Recordset 
Dim iIndex As Integer 
Dim iRecord As Integer 
Dim rsNominations As Recordset 
Dim rsTargets As Recordset 
Dim stNoms As String 
Dim stTargets As String 
Dim bFound As Boolean 


datQuery.DatabaseName = gstNewDatabase 
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‘Query by platform used for detection 
If frmQueries.optQuery(0).Value = True Then 
stSOL = "Select * from Acquisition " & _ 
"Where Acquisition.AcgqPlatform = ‘'" & 
frmQueries.cboPlatformsl.Text & "’" 


Set RS = db.OpenRecordset (stSQL) 
FlexOutput .FormatString = "Record|Acquistion Event |Track 
Id|Platform|Time of Acquisition : 


Do Until RS.EOF 
LReCOrd = IReCOradmee: | 


FlexOutput.AddItem iRecord & vbTab & RS!Acquisition & vbTab 
— 
RS!TrackIid & vbTab & RS!AcqPlatform & vbTab & 
RS !AcqTime 
RS .MoveNext 


Loop 
End ie 


‘Query by sensor used for detection 
If frmQueries.optQuery(1).Value = True Then 


stSQL = "Select * from Acquisition, SensorType " & _ 
"Where Acquisition.AcqSensorType = ’" & _ 
frmQueries.cboSensTypes1.Text & _ 
"’ And SensorType.SensorType = ’" & _ 


frmQueries.cboSensTypesl.Text & "’" 
Set RS = db.OpenRecordset (stSQL) 


FlexOutput.FormatString = "Record|Acquistion Event|Track 
Id|Sensor Type|Time of Acquisition 
Dern ranks BOE 
1Record = iRecord + 1 
FlexOutput.AddItem 1Record & vbTab & RS!Acquisition & vbTab 
& RS!TrackId & vbTab _ 
& frmQueries.cboSensTypes1.Text & vbTab & RS!AcqTime 
RS .MoveNext 
Loop 
EHQ TE 


‘Query by sensor and platform detection 
If frmQueries.optQuery(2).Value = True Then 
stSQL = "Select * from Acquisition, SensorType " & 
"Where Acquisition.AcqSensorType = ’" & 
frmQueries.cboSensTypes2.Text & _ 
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wr Net oOiitsl er omenegrlatform = “* 36.2 
frmQueries.cboPlatforms2.Text & _ 

"’ And SensorType.SensorType = ‘" & _ 
frmQueries.cboSensTypes2.Text & "’" 


Set RS = db.OpenRecordset (stSQL) 


FlexOutput.FormatString = "Record|Acquistion Event |Track 
Id|Platform |Sensor Type|Time of Acquisition : 
Do Until RS.EOF 
iRecord = iRecord + 1 
FlexOutput.AddItem iRecord & vbTab & RS!Acquisition & vbTab 
& RS!TrackId & vbTab _ 
& RS!AcqPlatform & vbTab & 
frmQueries.cboSensTypes2.Text & vbTab & RS!AcqTime 
RS .MoveNext 
Loop 
Ende lt 


‘Query by weapon used 
If frmQueries.optQuery(3).Value = True Then 
stSQL = "Select * from Target, WeaponType " & _ 
"Where Target.WeaponType = '" & _ 
frmQueries.cboWeaponTypes.Text & _ 
"’ And WeaponType.WeaponType = ’" & _ 
frmQueries.cboWeaponTypes.Text & "’" 


Set RS = db.OpenRecordset (stSQL) 
FlexOutput.FormatString = "Record|Target Id|Time Target 


Designated|Sensor Type|NLT Time 


Do Until RS.EOF 
i1Record = iRecord + 1 
FlexOutput.Additem iRecord & vbTab & RS!Targetid & vbTab & 


RS!TimeofDesignation _ 
& vbTab & frmQueries.cboWeaponTypes.Text & vbTab & 


RS! TargetNLTTime 
RS .MoveNext 
Loop 
hovel 1la8 


‘Query by threat types detected 
If frmQueries.optQuery(4).Value = True Then 


stSQL = "Select * from Acquisition, ThreatType " & _ 
"Where Acquisition.ThreatType = '" & _ 
frmQueries.cboThreatTypes.Text & _ 
"’ And ThreatType.ThreatType = ‘'" & _ 


tern 


frmQueries.cboThreatTypes.Text & 
Set RS = db.OpenRecordset (stSQL) 


FlexOutput.FormatString = "“Record|Acquistion Event |Track 
Id|Threat Type |Time of Acquisition n 


203 


Do Until RS.EOF 
1Record = iRecord + 1 
FlexOutput.AddItem iRecord & vbTab & RS!Acquisition & vbTab 

& RS!TrackId & vbTab _ 
& frmQueries.cboThreatTypes.Text & vbTab & RS!AcqTime 

RS .MoveNext 

Loop 

End If 


‘Average time acquisition to mensuration 
If frmQueries.optQuery(5) .Value = True Then 


End if 


‘Average time fire command to fire event 
If frmQueries.optQuery(6).Value = True Then 


End If 


‘Nominations accepted as targets 
If frmQueries.optQuery(7).Value = True Then 
StSQL = "SELECT Nomination.Nomination, Target.TargetId, 
Target.Description, " & _ 
"Nomination.Acquisition, Nomination.Mensuration " & 
"From Nomination, Target " & _ 
"WHERE Nomination.Nomination = Target .Nomination" 


Set RS = db.OpenRecordset (stSQL) 


FlexOutput.FormatString = "Record|Nomination |Target 
Id|Description | Acquisition |Mensuration " 
FlexOutput.Clear 
1Record = 1 
Do Une Ro. 20F 
FlexOutput.AddItem iRecord & vbTab & RS!Nomination & vbTab 
& 


RS!TargetId & vbTab & RS!Description & vbTab & 
RS!Acquisition & _ 
vbTab & RS!Mensuration 
stPrev = RS!Nomination 
RS .MoveNext 
If Not RS.EOF Then 
If stPrev <> RS!Nomination Then 
i1Record = Reeord +1 
End If 
EnGekt 
Loop 
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End I£ 


‘Nominations declined as targets 
If frmQueries.optQuery(8).Value = True Then 


stNoms = "Select * " & _ 
"From Nomination " 
stTargets = "Select * " & _ 


"From Target " 
Set rsNominations = db.OpenRecordset (stNoms) 
Set rsTargets = db.OpenRecordset (stTargets) 
datQuery.DatabaseName = gstNewDatabase 


rsNominations.MoveFirst 


1Record = 1 
FlexOutput.FormatString = "Record|Nomination 
| Acquisition|Mensuration |GISRSTerminal | Assessment : 


Do Until rsNominations.EOF 
rsTargets.MoveFirst 
Do Until rsTargets.EOF Or bFound = True 
If rsTargets!Nomination = rsNominations!Nomination 


Then 
bFound = True 
Else 
rsTargets .MoveNext 
Ene LE 
Loop 


With rsNominations 


If bFound = False Then 
FlexOutput.AddItem iRecord & vbTab & 
!Nomination & vbTab & _ 
‘Acquisition & vbTab & !Mensuration & vbTab 
& !GISRSTerminal & _ 
vbTab & !Assessment 
iRecord = iRecord + 1 
Ene tt 
End With 
bFound = False 


rsNominations.MoveNext 
Loop 


End Let 


‘Targets fired upon (impacts) 
If frmQueries.optQuery(9).Value = True Then 
stSQL = "Select Impact.Impact, Target .Targetid, 
Target.Description, " & _ 
"FireCommand.Platform, Fire.RoundsFired, Fire.FireTime, 


" & 
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"Impact.ImpactTime, Impact.BDA " & _ 

"From Impact, Fire, FireCommand, Target " & 

"Where Fire.Fire = Impact.FireEvent " & _ 

"And FireCommand.FireCommand = Fire.FireCommand 

"And Target.TargetId = FireCommand.TargetId" 
Set RS = db.OpenRecordset (stSQL) 


FlexOutput.FormatString = "Record|Impact |Target Id|Description 
ee See ae 
"Firer Platform |Rounds|Fire Time 
[a & 
"Impact Time | BDA 


i1Record = 1 


Do Until RSsH@e 


FlexOutput.AddItem iRecord & vbTab & RS!Impact & vbTab & _ 


RS!TargetId & vbTab & RS!Description & vbTab & 
RS!Platform & _ 


vbTab & RS!RoundsFired & vbTab & RS!FireTime & vbTab & 


RS!ImpactTime & vbTab & RS!BDA 
RS .MoveNext 
iRecord = iRecord + 1 


Loop 
En@asit 


End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmQueries.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmQueries.Enabled = True 
Unload Me 


End Sub 
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‘Module: frmQuestions.frm 

‘Description: Allows user to access the questions 
; records for addition, deletion, and 
modification. 

'Programmer : Kevin Coldén 
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’ 
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Option Expl reat 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
datQuestions.Recordset .AddNew 
txtQuestion.Enabled = True 
txtQuestion.SetFocus 
txtDescription.Enabled = True 
emdAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
MmnuFile.Enabled = False 
datQuestions.Enabled = False 


Else 
datQuestions.Recordset.CancelUpdate 
txtQuestion.Enabled = False 
txtDescription.Enabled = False 
emdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
MnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd. SetFocus 
datQuestions.Enabled = True 


End If 


Gme@aadda Click Exit: 
Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Exror GoTo 0 “Curn. OFF Errom@terapping 


End Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datQuestions.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Question " & txtQuestion.Text & "?", 
vbYesNo, "Delete Question") 
If iResp = vbYes Then 
With datQuestions.Recordset 
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.Delete ‘delete current record 


.MoveNext ‘move to following record 
If .EOF Then 
.MovePrevious 


If .BOF Then 
MsgBox "The recordset is empty.", 
vbIinformation, "No Records" 


El Gle te 
ENG es 
End With 
Bnd Tf 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, "Delete Question" 
elol. dise 


emaDel -Cliek Ee. 
Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On -EGrorm, Golo 0 ‘turn off error trappamg 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
If txtQuestion <> "" And txtDescription <> "" Then 
txtQuestion = UCase(txtQuestion) 
iResp = MsgBox("Do you want to add" & txtQuestion & _ 
"to the database?", vbYesNo + vbQuestion, _ 
"Add Question") 
If iResp = vbYes Then 
datQuestions.Recordset.Update 


Ene lt 
Else 
MsgBox "You must enter an Question and a description before 
saving.", vbExclamation _ 


, “Add Question" 
datQuestions.Recordset .CancelUpdate 
@na Le 


txtQuestion.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
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datQuestions.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off error trapping 

Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a QueStion name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On error Gore. 0 ‘turn off error trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
Sere Desecripeion 
MsgBox stMess, vbExclamation, "Database Error" 
datQuestions.Recordset .CancelUpdate 
Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
datQuestions.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&ébmit" 
txtQuestion.Enabled = True 
txtDescription.Enabled = True 
cmdadDel.Enabled = False 
mnuFile.Enabled = False 
txtQuestion.SetFocus 
cmdAdd.Enabled = False 
datQuestions.Enabled = False 
datQuestions.Recordset.Edit 

Else 
Tf datQuestions.Recordset.RecordCount > 0 Then 

datQuestions.Recordset .Update 


txtQuestion.Enabled = False 
txtDescription.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
‘emdAdd.Enabled = True 


209 


cmdAdd .SetFocus 


cmdUpdate.Caption = "&Update" 
datQuestions.Enabled = True 
End If 
Rima) Lf 
Ene sup 


Private Sub datQuestions_Reposition() 
SetQuestionRecordNumber 


End Sub 


Private Sub Form_Load() 
datQuestions.DatabaseName = gstNewDatabase 


With datQuestions 
.Refresh 
T£ Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset.MoveFirst 
Ena it 
End With 


SetQuestionRecordNumber 


End Sub 

Private Sub Form_Unload(Cancel As Integer) 
frmMain. Show 
frmMain.Enabled = True 
Unload Me 

End Sub 

Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch_Click() 


datQuestions.Recordset.FindFirst "(Question] = ’" & _ 
InputBox("Enter the Question", "Question Search") & 


"of 


If datQuestions.Recordset.NoMatch Then 


MsgBox "Question was not found.", vbOKOnly, "Question Search" 
datQuestions.Recordset .MoveFirst 280. CO-FITSE record 
Ena If 
End Swb 
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Private Sub SetQuestionRecordNumber () 
Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


i1RecordCount = datQuestions.Recordset.RecordCount 
iCurrentRecord = datQuestions.Recordset .AbsolutePosition + 1 
If datQuestions.Recordset.EOF Then 


datQuestions.Caption = "No more records" 
Else 
datQuestions.Caption = “Question " & iCurrentRecord & _ 
" of " & 1RecordCount 
sovel dite 
End Sub 
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‘Module: frmQuestions. frm 

‘Description: Allows user to access the questions 
: records for addition, deletion, and 
: MoOdPEweagei on. 

‘Programmer: Kevin Coldn 
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Opticons@explacit 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


Tf cmdAdd.Caption = "&Add" Then 
datQuestions. Recordset .AddNew 
txtQuestion.Enabled = True 
txtQuestion. SetFocus 
txtDescription.Enabled = True 
cmdAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datQuestions.Enabled = False 


Else 
datQuestions.Recordset.CancelUpdate 
txtQuestion.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdaAdd. SetFocus 
datQuestions.Enabled = True 


End If 
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emcdAdd. Cliches xi: 
Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, “Database Error" 
On Error GoTo 0 ‘turn ob@eerror trapping 


Bad. Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datQuestions.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Question " & txtQuestion.Text & "?", 
vbYesNo, "Delete Question") 
If iResp = vbYes Then 
With datQuestions.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
Lf BOF then 

.MovePrevious 


If .BOF Then 
MsgBox "The recordset is empty.", 
vbInformation, "No Records" 


Bnet Lr 
Iq, Ise 
End With 

Dole! Bisa 
Else 

MsgBox "No records to delete.", vbExclamation _ 

"Delete Question" 

eke ei bat 


cmdDel_Click_Exit: 
Bxit Sub 


HandleDelErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
@eErY Weseription 

MsgBox stMsg, vbExclamation, "Database Error" 

On Error GoTo 0 ‘turn off error trappang 


End Sub 


eZ 


Private Sub cmdSave_Click() 
‘Save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
Ti exp@mesti1on <aa" And tegtWescription <=) “™ Then 
txtQuestion = UCase(txtQuestion) 
1Resp = MsgBox("Do you want to add " & txtQuestion & _ 
"to the database?", vbYesNo + vbQuestion, 
"Add Question") 
If iResp = vbYes Then 
datQuestions.Recordset.Update 


End If 
Else 
MsgBox "You must enter an Question and a description before 
Ssaving.", vbExclamation _ 


"Add Question" 
datQuestions.Recordset.CancelUpdate 
Enc 


txtQuestion.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datQuestions.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Exner Golo 0 ‘turn Off ernrer trapping 

Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a Question name before saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘turn off error trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datQuestions .Recordset .CancelUpdate 
Resume Next 
End Select 


Zi 


End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
datQuestions.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
txtQuestion.Enabled = True 
txtDescription.Enabled = True 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
txtQuestion.SetFocus 
cmdAdd.Enabled = False 
datQuestions.Enabled = False 
datQuestions.Recordset.Edit 

Else 
If datQuestions.Recordset.RecordCount > 0 Then 

datQuestions.Recordset.Update 


txtQuestion.Enabled = False 
txtDescription.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 


cmadUpdate.Caption = "&Update" 
datQuestions.Enabled = True 
End If 
End If 
End Sub 


Private Sub datQuestions_Reposition() 
SetQuestionRecordNumber 


End Sub 


Private Sub Form_Load() 
datQuestions.DatabaseName = gstNewDatabase 


With datQuestions 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
Ena Jf 
End With 


SetQuestionRecordNumber 


End Sub 


Private Sub Form_Unload(Cancel As Integer) 
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frmMain. Show 
frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub mnuFileSearch Click() 


datQuestions.Recordset.FindFirst "[{Question] = ’" & _ 
InputBox("Enter the Question", "Question Search") & "'" 


If datQuestions.Recordset.NoMatch Then 


MsgBox "Question was not found.", vbOKOnly, "Question Search" 
datQuestions.Recordset .MoveFirst “GO EOeElEeSer Gecord 
Ene. Lf 


End Sub 


Private Sub SetQuestionRecordNumber () 


Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


iRecordCount = datQuestions.Recordset .RecordCount 
iCurrentRecord = datQuestions.Recordset .AbsolutePosition + 1 
If datQuestions.Recordset.EOF Then 


datQuestions.Caption = "No more records" 
Else 
datQuestions.Caption = "Question " & iCurrentRecord & _ 
teOr~ = & 1LRecordcount 
End Jt 
End Sub 
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‘ 


‘Module: PrmSOL . fem 

‘Description: Allows user to enter their own SQL statement 
and provides the results ina data bound 
Sonepol: 

‘Programmer : Kevin Coldn 
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Option Explicic 


Private Sub cmdCancel_Click() 


frmMain.Enabled = True 
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Unload Me 
End Sub 
Private Sub cmdSearch_Click() 
Dim stMsg As String 
On Error GoTo HandleQueryError 


datSQL.DatabaseName = gstNewDatabase 


GatSQL.RecordSource 
GatSQL.Refresh 


(ee BS OIE 


emdSearch Click@ex1 
ExXit.-Sup 


HandleQueryError: 
Select Case Err.Number 
Case 3078 


stMsg = "A table you entered is not recognized. 


verifythat this table exists." 
MsgBox stMsg, vbOKOnly, "Custom Query Error" 


txESOR. SetFocus 
Exit Sub 
End Select 
End Sub 


Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 


Please 
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’Module: frmTargetEvent. frm 

‘Description: Allows user to access the target records 
: for addition, deletion, and modification. 
‘Programmer: Kevin Col6n 
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Optdien= Explicit 


Dim rsNomination As Recordset 

Dim rsWeaponType As Recordset 

Dim stSQLl As String 

Dim stSQL2 As String 

Private WordApp As Word.Application 
Private Doc As Word.Document 
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Private Sel As Word.Selection 


Private Sub cboNomination_Change() 


If cboNomination.ListiIndex >= QO Then 
txtNomination = cboNomination.Text 
End If 


End Sub 
Private Sub cboWeaponType_Change() 


If choWeaponType.ListIndex >= 0 Then 
txtWeaponType = cboWeaponType.Text 
Ene If 


End Sub 

Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 
If cmdAdd.Caption = "&Add" Then 


datTarget .Recordset .AddNew 
cboNomination.Enabled = True 
cbhoWeaponType.Enabled = True 
cbhoNomination.ListIndex = -l 
cboWeaponType.ListIndex = -1l 
txtTimeofDesignation.Enabled = True 
txtNLTTime.Enabled = True 
txtDescription.Enabled = True 
txtLocation.Enabled = True 
txtAltitude.Enabled = True 
txtSpeed.Enabled = True 
txtRemark.Enabled = True 
txtTargetId.Enabled = True 
txtPriority.Enabled = True 
txtDesiredEffect .Enabled = True 
cmdUpdate.Enabled = False 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cemdAdd.Caption = "&Cancel" 
mnuFile.Enabled = False 
datTarget.Enabled = False 


Else 


datTarget .Recordset .CancelUpdate 
cboNomination.Enabled = False 
cboWeaponType.Enabled = False 
txtTimeofDesignation.Enabled = False 
txtNLTTime.Enabled = False 
txtDescription.Enabled = False 
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txtLocation.Enabled = False 
txtAltitude.Enabled = False 
txtSpeed.Enabled = False 
txtRemark.Enabled = False 
txtTargetId.Enabled = False 
txtPriority.Enabled = False 
txtDesiredEffect.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel .Enabled True 
cmdAdd.Caption = "&Add" 
mnuFile.Enabled = True 
datTarget.Enabled = True 
cmdAdd.SetFocus 


tl 


En@G it 


cmdAddad_Click_Exit: 


Eat 7 Sul 
HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf & 


Emr. DESCription 
MsgBox stMess, vbExclamation, "Database Error" 
Cn Erron Goro 0 “CUrN OLL Crronpeerapoing 


End Sub 
Private Sub cmdDel_Click() 
Dim iResp As Integer 
On Error GoTo HandieDelErrors 


If datTarget.Recordset.RecordCount > 0 Then 
1Resp = MsgBox("Delete Target " & txtTargetId & "?", vbYesNo, _ 
"Delete Target") 
If iResp = vbYes Then 
With datTarget.Recordset 
.Delete 
-MoveNext 
If .EOF Then 
.MovePrevious 
If .BOF Then 
MsgBox "The recordset is empty.", 
vbinformation, "No Records" 


ENG sit 
EnG ie 
End With 
Ena Let 
Else 
MsgBox "No records to delete.", vbExclamation, "Delete Target" 
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End be 


cmdDel. Click: 


Exit Sub 
HandleDelErrors: 
Dim stMess As String 
stMess = "Cannot complete operation." & vbCrLf & vbCrLf & 


Err .Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Eererm Goro 0 


End Sub 
Private Sub cmdSave_Click() 


‘save Cllsmenmt record 
On Error GoTo HandleSaveErrors 


If cboNomination.ListIndex >= 0 And cboWeaponType.ListIndex >= 0 
Then 


datTarget .Recordset .Update 
Else 
MsgBox "You must select a Nomination Event and a Weapon Type 
before saving." 
, VbExclamation, "Add Target Event" 
datTarget .Recordset .CancelUpdate 
Poe. Lf 


cboNomination.Enabled False 
cbhoWeaponType.Enabled = False 
txtTimeofDesignation.Enabled = False 
txtNLTTime.Enabled = False 
txtDescription.Enabled = False 
txtLocation.Enabled = False 
txtAltitude.Enabled = False 
txtSpeed.Enabled = False 
txtRemark.Enabled = False 
txtTargetId.Enabled = False 
txtPriority.Enabled = False 
txtDesiredEffect.Enabled = False 
cmdUpdate.Enabled = True 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdAdd.Caption = "“&Add" 
mnuFile.Enabled = True 
datTarget.Enabled = True 
cmdAdd.SetFocus 


datTarget.Enabled = True 
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emaSave_Citvek erste 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 
Case 3022 ‘duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 ‘eurn Off Creeopgrmeapping 


Case 3058, 3315 ‘no entry in key field 
stMess = "Select Nomination Event and Weapon Type before 
saving." 
MsgBox stMess, vbExclamation, "Database Error" 
On ELror Goro’ ‘turn off error trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLt _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datTarget .Recordset .CancelUpdate 
Resume Next 
End Select 


End Sub 
Private Sub cmdUpdate_Click() 


If cmdUpdate.Caption = "&Update" And _ 
datTarget.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
cboNomination.Enabled = True 
cboWeaponType.Enabled = True 
txtTimeofDesignation.Enabled = True 
txtNLTTime.Enabled = True 
txtDescription.Enabled = True 
txtLocation.Enabled = True 
txtAltitude.Enabled = True 
txtSpeed.Enabled = True 
txtRemark.Enabled = True 
txtTargetIid.Enabled = True 
txtPriority.Enabled = True 
txtDesiredEffect.Enabled = True 
cmdAdd.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
datTarget.Enabled = False 
datTarget.Recordset.Edit 


Else 
If datTarget.Recordset.RecordCount > 0 Then 
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datTarget .Recordset.Update 


cboNomination.Enabled = False 
cboWeapontType. Enabled False 
txtTimeofDesignation.Enabled = False 
txtNLTTime.Enabled = False 
txtDescription.Enabled = False 
txtLocation.Enabled = False 
txtAltitude.Enabled = False 
txtSpeed.Enabled = False 
txtRemark.Enabled = False 
txtTargetid.Enabled = False 
txtPriority.Enabled = False 
txtDesiredEffect.Enabled = False 
emdDel.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 
cmdUpdate.Caption = "&Update" 
mnuFile.Enabled = True 
GatTarget.Enabled = True 


Ene if 
Ena 1f 


End Sub 

Private Sub datTarget_Reposition() 
SetTargetRecordNumber 

End Sub 


Private Sub Form_Load() 


datTarget.DatabaseName = gstNewDatabase 


"Select Nomination from Nomination" 
"Select WeaponType from WeaponType" 


stSQL1 
stSQL2 


Set rsNomination = db.OpenRecordset (stSQL1) 
Set rsWeaponType = db.OpenRecordset (stSQL2) 


[fi Diwebotonminacizon 

Do Until rsNomination. EOF 
cboNomination.AddItem rsNomination!Nomination 
rsNomination.MoveNext 

Loop 


‘fill cboWeaponType 

Do Until rsWeaponType. EOF 
cboWeaponType.AddiItem rsWeaponType !WeaponType 
rsweapontType .MoveNext 
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Loop 


With datTarget 
_Refresh 
ae Nene _Recordset.EOF Then 
Recordset .MoveLast 
Recordset .MoveFirst 
End If 
End With 


Set TargetRecordNumber 
End Sub 
Private Sub SetTargetRecordNumber () 


Dim iRecordCount ie) Ieterese feng 
Dim iCurrentRecord As Integer 


iRecoracount.-— datTarget .Recordset .RecordCount 
iCurrentRecord = dat Target .Recordset .AbsolutePosition + 1 


Leg dat Target .Recordset . EOF Then 


datTarget.Caption = "No more records" 
Else 
datTarget.Caption = "Target Record " & iCurrentRecord & _ 
" of " & LRecordCount 
End If 
End Sub 


Private Sub Form Unload (Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 


Private Sub Wikibilemrint Cc llcmn@) 
frmPrint .Show 


On Error GoTo mnuPrintErrors 
If bContinue = True Then 
With datTarget .Recordset 


If bWord = True Then 
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Set WordApp = New Word.Application 
WordApp .Documents .Add 

Set Doc = WordApp.ActiveDocument 
Set Sel = WordApp.Selection 


Doc.Tables.Add Range:=Sel.Range, NumRows:=.RecordCount, 
NumColumns: =8 
Sel.TypeText Text:="TargetId" 


Sel.MoveRight unit:=12 ’12=next cell 


Sel.TypeText Text:="Designation Time" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="Nomination" 
Sel.MoveRight unit:=12 ‘12=next cell 


Sel .TypeText Text:="Location" 
Sel.MoveRight unit:=12 TI 2=next ced 


Sel.TypeText Text:="Altitude" 
Sel.MoveRight unit:=12 ’12=next cell 


Sel .TypeText Text:="Speed" 
Sel .MoveRight unit:=12 ‘12=next cell 


Sel.TypeText Text:="NLT Time" 
Sel.MoveRight unit:=12 “T2=nexe (coeur 


Sel.TypeText Text:="Priority" 
Sel.MoveRight unit:=12 Mianeweeeaill 


Sel.TypeText Text:="Weapon Type" 
Sel.MoveRight unit:=12 ‘1 2=next cell 


Sel.TypeText Text:="Remark" 
Sel .MoveRight unit:=12 ’12=next cell 


Do Unter or 


Sel.TypeText Text:=!TargetiId 


Sel .MoveRight unit:=12 ‘12=next 
cell 

Sel.TypeText Text:=!TimeofDesignation 

Sel.MoveRight unit:=12 2 =e sae 
cell 

Sel.TypeText Text:=!Nomination 

Sel .MoveRight unit:=12 ‘12=next 
cell 


Sel .TypeText Text:=!TargetLocation 
Sel .MoveRight unit:=12 ‘12=next 


223 


cell 


cell 


cell 


cell 


cell 


cell 


cell 


Chr (She 


Chrtoi, 


Sel 
Sel 


Sel 
Sel 


Sel 
Sel 


Sel 
Sel 


Sel 
Sel 


Sel 
Sel 


.TypeText Text:=!TargetAltitude 
.MoveRight unit:=12 


.TypeText Text:=!TargetSpeed 
.MoveRight unit:=12 


.TypeText Text:=!TargetNLTTime 
-MoveRight unit:=12 


.TypeText Text:=!Priority 
.MoveRight unit:=12 


.TypeText Text:=!WeaponType 
.MoveRight unit:=12 


.TypeText Text:=!Remark 
Move tgheauni:.—12 


.MoveNext 


Loop 


WordApp.Visible = True 


Set WordApp = Nothing 


Else 


If bText 


= True Then 


“I 2=nexe 


2 next 


‘12=next 


‘12=next 


“1 2=next 


‘12=next 


Open App.Path & "\NomEvents.txt" For Output As #1 


Print # le 
~NomMinat won > Chiees).. 


"TargetId"; Chr(9); "Designation Time"; 

- "Location"; Chr(9); "Altitude"; Chr (9); 
PoMeedar Chino)  eoNblT Me. emir oe 
 pRetority--s=Chr(9)> "WeaponType”; 
"Remark"; Chr (9) 

po Until 2Or 
Print #1, !TargetId; Chr(9); 
'TimeortbDestonatien; Chr(9); 


MNOmIiatton: Chr(9) : 


[Targetlocation; Chr(9) ; 
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!TargetAltitude; Chr(9); 
'TargetSpeed; Chr(9); 
!TargetNLTTime; Chr(9); 
Per LOR ety we nr (9k. 
!WeaponType; Chr(9); 
‘Remark; Chr(9) 


.MoveNext 
Loop 
Close #1 
End If 
End If 
-.MoveFirst 
End With 
Eao If 
bContinue = False 
bWord = False 
bText = False 
MNUPGINCErrors: 
Select Case Err.Number 
Case 94 


Sel.TypeText Text:="" 
Resume Next 
End Select 


End Sub 
Private Sub txtNomination_Change() 


‘selects correct combo box listing 
Dim iIndex As Integer 
Dim bFound As Boolean 


rsNomination.MoveFirst 
EP SextENomination <> “" Then 
Do Until iIndex = rsNomination.RecordCount Or bFound 
If rsNomination!Nomination = txtNomination Then 
cboNomination.Text = rsNomination!Nomination 
bFound = True 
Else 
rsNomination.MoveNext 
lIndex = iIndex + 1 
sige, 108 


Loop 
End DE 


IMLS, 


End Sub 


Private Sub txtWeaponType_Change() 


‘selects correct combo box listing 
Dim iiIndex As Integer 
Dim bFound As Boolean 


rsWeaponType.MoveFirst 
If txtWeaponType <> "" Then 
Do Until iIndex = rsWeaponType.RecordCount Or bFound 
If rsWeaponType !WeaponType = txtWeaponType Then 
cboWeaponType.Text = rsWeaponType !WeaponType 
bFound = True 
Else 
rsWweaponType .MoveNext 
iIndex = iIndex + 1 
Ditch Ise 


Loop 
End ai 


End Sub 
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‘Module: frmTargets2.frm 
‘Description: Allows user to view all target records. Uses 


f 


f 


the filters form to reduce the number of 
records displayed. 


. 7 
‘Programmer: Kevin Colon 
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OpELONGEXpLVel Ee 


Private Sub FlexTargets_Db1Click() 


frmTimeline. Show 


End Sub 


Private Sub dbgTargets_DblClick() 


frmTimeline. Show 


End Sub 


Private Sub Form_Load() 


Dim stSQL As String 
Dim iRecord As Integer 


stSOL = "Select * from Target! 
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GatTargets.DatabaseName = gstNewDatabase 


datTargets.RecordSource stSOL 


GatTargets.Refresh 

End Sub 

Private Sub Form_Resize() 
abgTargets.Width = Me.Width 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFilters_Click() 
frmFiiters.Show 


Me.Enabled = False 


End Sub 
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‘Module: frmThreatTypes.frm 

‘Description: Allows user to access the threat types 
: PEeCorasator aogition, deletion, 

: modification. 

'Programmer: Kevin Col6én 


Pee KEKEKEKKEKEKEKEKKEKEKEKE KEKE KEK KEKE KEKE KEKE KK KEK KEK KKK 


Opt lOnwexp leit 


Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
GatThreatTypes.Recordset .AddNew 
txtThreatType.Enabled = True 
txtThreatType.SetFocus 


Jisag 


txtDescription.Enabled = True 
txtMission.Enabled = True 
cmdAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdDel.Enabled = False 
cmdUpdate.Enabled = False 
mnuFile.Enabled = False 
datThreatTypes.Enabled = False 


Else 
datThreatTypes.Recordset.CancelUpdate 
txtThreatType.Enabled = False 
txtDescription.Enabled = False 
txtMission.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
datThreatTypes.Enabled = True 


gto Mig 


cmadAdd_Click_Exit: 
Exit Sub 


HandleAddErrors: 
Dim stMess' As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf 
& Errepescrimcelon 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 “EQENn Off error trappang 


End Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datThreatTypes.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Threat " & txtThreatType.Text & "?", 
vbYesNo, "Delete Threat") 
If iResp = vbYyes Then 
With datThreatTypes.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
If .EOF Then 

.MovePrevious 


Li. 8S0F Then 
MsgBox “The recordset is empty.", 
vbIinformation, “No Records" 
End If 
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laigtsl= Mae 


End With 
End iF 
Else 
MsgBox "No records to delete.", vbExclamation _ 
, "Delete Threat" 
End sie 


cmelwel Click Exist: 
Exit Sub 


HandleDelErrors: 
Dim stMsg As “G6 iawrng 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf _ 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

On Ermer  GeTo 0 ‘Cur Of eran trapping 


End Sub 


Private Sub cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
ftioexerareatlype.Text <> ™" #tfhen 
txtThreatType.Text = UCase(txtThreatType.Text) 


iResp = MsgBox("Do you want to add " & txtThreatType.Text & _ 


" to the database?", vbYesNo + vbQuestion, 
"Add Threat") 
If i1Resp = vbYes Then 
datThreatTypes.Recordset .Update 
Ena. ft 


Else 
MsgBox "You must enter a Threat type before saving.", 
vbExclamation _ 
"Add Threat" 
datThreatTypes.Recordset .CancelUpdate 
Ena LE 


txtThreatType.Enabled = False 
txtDescription.Enabled = False 
txtMission.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datThreatTypes.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 
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cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 ‘duplicate key field 
stMess = “Record already exists -- could not sSave>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error GoTo 0 *EUGN OLE Crror Erapping 

Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a Threat type before saving." 
MsgBox stMess, vbExclamation, “Database Error" 
On Error GoTo 0 “EULMVOLL e€GrOnm EDapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
GatThreatTypes.Recordset .CancelUpdate 
Resume Next 
End Select 


End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
GatThreatTypes.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
txtThreatType.Enabled = True 
txtDescription.Enabled = True 
txtMission.Enabled = True 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
txtThreatType.SetFocus 
cmdAdd.Enabled = False 
datThreatTypes.Enabled = False 
datThreatTypes.Recordset.Edit 

Else 
If datThreatTypes.Recordset.RecordCount > O Then 

dGdatThreatTypes.Recordset .Update 


txtThreatType.Enabled = False 
txtDescription.Enabled = False 
txtMission.Enabled = False 
cmdDel.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 


cmdUpdate.Caption = "&Update" 
datThreatTypes.Enabled = True 
Bache Lt 


pee Lt 
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End Sub 
Private Sub datThreatTypes_ Reposition () 
SetThreatRecordNumber 
End Sub 
Private Sub Form_Load() 
datThreatTypes.DatabaseName = gstNewDatabase 
With datThreatTypes 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset .MoveLast 
.Recordset .MoveFirst 
End If 
End With 


SetThreatRecordNumber 


End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain. Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch_Click() 


datThreatTypes.Recordset.FindFirst "[{ThreatType] = ’" & _ 
InputBox("Enter the Threat Type", "Threat Type Search") 
& wer 


If datThreatTypes.Recordset.NoMatch Then 
MsgBox "Threat Type was not found.", vbOKOnly, "Threat Type 
Search" 
datThreatTypes .Recordset .MoveFirst "GOurogLilrst. record 
Ene) £E 


End Sub 


Private Sub SetThreatRecordNumber () 
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Dim 1RecordCount As Integer 
Dim iCurrentRecord As Integer 


i1RecordCount = datThreatTypes.Recordset .RecordCount 
iCurrentRecord = datThreatTypes.Recordset.AbsolutePosition + 1 
If datThreatTypes.Recordset.EOF Then 


datThreatTypes.Caption = "No more records" 
Else 
datThreatTypes.Caption = "Threat " & iCurrentRecord & _ 
"of " & 1RecordCount 
Ener 
End Sub 
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‘Module: frmTimeline.frm 

‘Deseurperon. Displays the event timeline from acquisition 
: to impact for a selected target 

‘Programmer: Kevin Col6én 
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Opeuem Explicit 


Private Sub Form_Load() 
Dim stSQL As String 
Dim stTarget As String 
Dim iTabs As Integer 
Dim rsTimes As Recordset 
Dim stSQL1 As String 
Dim stSQL2 As String 
Dim stSQL3 As String 
Dim stSQL4 As String 
Dim stSQL5S As String 
Dim stSQL6 As String 
Dim stSQL7 As String 
Dim rsAcquisition As Recordset 
Dim rsMensuration As Recordset 
Dim rsNomination As Recordset 
Dim rsTarget As Recordset 
Dim rsFireCommand As Recordset 
Dim rsFire As Recordset 
Dim rsImpact As Recordset 


frmTargets2.dbgTargets.Col = 0 
stTarget = frmTargets2.dbgTargets.Text 


stSQL4 = "Select * from Target where Target.TargetId = '" & 
stTarget & “= 
Set rsTarget = db.OpenRecordset (stSQL4) 


stSQL3 = "Select * from Nomination where Nomination.Nomination 
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& rsTarget!Nomination & "’" 
Set rsNomination = db.OpenRecordset (stSQL3) 


stSQL2 = "Select * from Mensuration where Mensuration.Mensuration 
‘" & rsNomination!Mensuration & "'" 
Set rsMensuration = db.OpenRecordset (stSQL2) 


stSQL1 = "Select * from Acquisition where Acquisition.Acquisition 
““ & rTSNomanation!Acquisdmtion & "'" 
Set rsAcquisition = db.OpenRecordset (stSQL1) 


stSQL5 = "Select * from FireCommand where FireCommand.TargetId = °" 
& stTarget & "’" 
Set rsFireCommand = db.OpenRecordset (stSQL5) 


SstSQL6 = "Select * from Fire where Fire.FireCommand = ‘" & 
rsFireCommand!FireCommand & "’" 
Set rsFire = db.OpenRecordset (stSQL6) 


If rsFire.RecordCount > 0 Then 
stSQL7 = "Select * from Impact where Impact.FireEvent = '" & 
rsFire!Fire & "’" 
Set rsImpact = db.OpenRecordset (stSQL7) 
Ene If 


lstTimeline.AddItem "Target Id: " & stTarget 
lstTimeline.AddItem "Target Description: " & 
rsTarget !Description 
lstTimeline.AddItem "" 
lstTimeline.AddItem "NLT Time: ware 
rsTarget !TargetNLTTime 
lstTimeline.AddItem "" 


lstTimeline.AddItem "Acquisition Time: " & 
rsAcquisition! AcqTime 

lstTimeline.AddItem "Mensuration Rqst: " & 
rsMensuration! TimeRequestSent 

lstTimeline.AddItem "Mensuration Revd: " & 
rsMensuration! TimeRequestReceived 

lstTimeline.AddItem "Mensuration Info Sent: " & 
rsMensuration! TimeRequestReceived 

lstTimeline.AddItem "Mensuration Info Revd: " & 
rsMensuration! TimeRequestReceived 

lstTimeline.AddItem "Nomination Sent: " & 
rsNomination!NomTimeSent 

lstTimeline.AddiItem "Nomination Rcvd: " & 
rsNomination!NomTimeRcvd 

lstTimeline.AddItem "Target Designation: ee 
rsTarget !TimeofDesignation 

lstTimeline.AddItem "Fire Command Xmit: " & 
rsFireCommand! FCTimexXmit 

lstTimeline.AddItem "Fire Command Rcvd: " & 


rsFireCommand! FCTimeRcvd 


If rsFire.RecordCount > O Then 
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lstTimeline.AddItem "Fire Event: " & rsFire!FireTime 
If rsImpact.RecordCount > 0 Then 
lstTimeline.AddItem "Impact: " & rsImpact!ImpactTime 
End If 
Ene re 


frmTargets2.Enabled = False 


End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmTargets2.Enabled = True 
Unload Me 


End Sub 
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‘Module: frmWeaponTypes.frm 

‘Description: Allows user to access the weapon types 
: records for addition, deletion, and 

: modification. 

'Programmer : Kevin Col6én 
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Private Sub cmdAdd_Click() 
On Error GoTo HandleAddErrors 


If cmdAdd.Caption = "&Add" Then 
datweaponTypes.Recordset .AddNew 
txtWeaponType.Enabled = True 
txtWeaponType.SetFocus 
txtDescription.Enabled = True 
cmdAdd.Caption = "&Cancel" 
cmdSave.Enabled = True 
cmdadDel.Enabled = False 
cmadUpdate.Enabled = False 
mnuFile.Enabled = False 
datWeaponTypes.Enabled = False 


Else 
datWeaponTypes.Recordset.CancelUpdate 
txtWeaponType.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
cmdUpdate.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
datWeaponTypes.Enabled = True 
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End If 


emnandad click Exit: 
Exit Sub 


HandleAddErrors: 
Dim stMess As String 
stMess = "Cannot complete operation. " & vbCrLf & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
On Exrrer Coto 0 ‘turn off error trapping 


End Sub 


Private Sub cmdDel_Click() 
‘delete the current record 
Dim iResp As Integer 


On Error GoTo HandleDelErrors 


If datWeaponTypes.Recordset.RecordCount > 0 Then 
iResp = MsgBox("Delete Weapon " & txtWeaponType.Text & "?", 
vbYesNo, "Delete Weapon") 
If iResp = vbYes Then 
With datWeaponTypes.Recordset 


.Delete ‘delete current record 
.MoveNext ‘move to following record 
If .EOF Then 

.MovePrevious 


If .BOF Then 


MsgBox "The recordset is empty.", 
vbInformation, "No Records" 


End If 
end Lf 
End With 

shgtel’ Jie 
Else 

MsgBox "No records to delete.", vbExclamation _ 

"Delete Weapon" 

Digs ese 


cmdDel Click_Exit: 
Exit Sub 


HandleDelErrors: 
Dim stMsg As String 


stMsg = "Cannot complete operation." & vbCrLf & vbCrLf 
& Err.Description 

MsgBox stMsg, vbExclamation, "Database Error" 

OnwErrorn <Gonhoe0 *CUrn G&L Error ‘rapping 


End Sub 
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ERivage oul cmdSave_Click() 
‘save the current record 
Dim iResp As Integer 


On Error GoTo HandleSaveErrors 
If txtWeaponType.Text <> "" Then 
txtWeaponType.Text = UCase(txtWeaponType.Text) 


iResp = MsgBox("Do you want to add" & txtWeaponType.Text & _ 


"to the database?", vbYesNo + vbQuestion, 
"Add Weapon") 
If i1Resp = vbYes Then 
datWeaponTypes.Recordset .Update 
Ene 


Else 
MsgBox "You must enter a weapon type before saving.", 
vbExclamation _ 
"Add Weapon" 
datWeaponTypes.Recordset.CancelUpdate 
End If 


txtWeaponType.Enabled = False 
txtDescription.Enabled = False 
cmdSave.Enabled = False 
cmdDel.Enabled = True 
datWeaponTypes.Enabled = True 
mnuFile.Enabled = True 
cmdAdd.Caption = "&Add" 
cmdAdd.SetFocus 
cmdUpdate.Enabled = True 


cmdSave_Click_Exit: 
Exit Sub 


HandleSaveErrors: 
Dim stMess As String 
Select Case Err.Number 


Case 3022 ’duplicate key field 
stMess = "Record already exists -- could not save>’" 
MsgBox stMess, vbExclamation, "Database Error" 
On Error Goto 0 orm Off error trapping 
Case 3058, 3315 ‘no entry in key field 
stMess = "Enter a weapon type before saving." 
MsgBox stMess, vbExclamation, “Database Error" 
On Error GoTo 0 (eum Ort Crrom trapping 


Case Else 
stMess = "Record could not be saved." & vbCrLf _ 
& Err.Description 
MsgBox stMess, vbExclamation, "Database Error" 
datWeaponTypes .Recordset .CancelUpdate 
Resume Next 
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End Select 
End Sub 


Private Sub cmdUpdate_Click() 
If cmdUpdate.Caption = "&Update" And _ 
datWeaponTypes.Recordset.RecordCount > 0 Then 


cmdUpdate.Caption = "Su&bmit" 
txtWeaponType.Enabled = True 
txtDescription.Enabled = True 
cmdDel.Enabled = False 
mnuFile.Enabled = False 
txtWeaponType.SetFocus 
cmdAdd.Enabled = False 
datWeaponTypes.Enabled = False 
datWeaponTypes.Recordset.Edit 

Else 
If datWeaponTypes.Recordset.RecordCount > 0 Then 

datWeaponTypes.Recordset .Update 


txtWeaponType.Enabled = False 
txtDescription.Enabled = False 
cmdDel.Enabled = True 
muFile.Enabled = True 
cmdAdd.Enabled = True 
cmdAdd.SetFocus 


cmdUpdate.Caption = "&Update" 
datWeaponTypes.Enabled = True 
Jahal sl 1058 
Bade Le 
End Sub 


Private Sub datWeaponTypes_Reposition() 
SetWeaponRecordNumber 
End Sub 
Private Sub Form_Load() 
datWeaponTypes.DatabaseName = gstNewDatabase 
With datWeaponTypes 
.Refresh 
If Not .Recordset.EOF Then 
.Recordset.MoveLast 
.Recordset.MoveFirst 
BOG EE 
End With 


SetWeaponRecordNumber 
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End Sub 
Private Sub Form_Unload(Cancel As Integer) 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileBack_Click() 


frmMain.Enabled = True 
Unload Me 


End Sub 
Private Sub mnuFileSearch_Click() 


datWeaponTypes.Recordset.FindFirst "[WeaponType}] = '" & _ 


InputBox("Enter the Weapon Type", "Weapon Type Search") 
& wer 


If datWeaponTypes.Recordset.NoMatch Then 


MsgBox "Weapon Type was not found.", vbOKOnly, "Weapon Type 
Search" 


datWeaponTypes.Recordset.MoveFirst “gO Berfirst record 
Ener 


End Sub 


Private Sub SetWeaponRecordNumber () 
Dim iRecordCount As Integer 
Dim iCurrentRecord As Integer 


1RecordCount = datWeaponTypes.Recordset.RecordCount 
iCurrentRecord = datWeaponTypes.Recordset.AbsolutePosition + 1 
If datWeaponTypes.Recordset.EOF Then 


datWeaponTypes.Caption = "No more records" 
Else 
datWeaponTypes.Caption = "Weapon " & iCurrentRecord & _ 
"of " & i1RecordCount 
End If 
End Sub 
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